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14-Sep-1984 4:01 D1 SKSVMSMASTER; (BACKUP. SRCISAVE .832; (a9 © ay) 


3 1 0001 MODULE SAVE (ZTITLE “aye Files-11 media’ 

$ ¢ B88 IDENT = 'V04-000' 

; 00 )z 

5 4 0004 1 BEGIN 

tt 000g |! 

: ? 0007 1 SRR RARER AAA AERAREAARAAERERREREEE ATA AATAATEAAAAAAEREAAAEREARERERERERAER EEE 
; 08 1 !* * 
; % 0009 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 8 * 
: 10 0010 1 '* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * 
3 3 get) : - ALL RIGHTS RESERVED. * 
Py : t 
3 ig 9018 1 !* THIS - is FURNISHED UNDER A LICENSE AND MAY BE USED AND copieD * 
; % 0014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH ob cE SE AND WITH THE * 
ot: ae 0015 1 !® ancl ue lon OF AHe ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
; 16 0016 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE “WADE AVAILABLE TO ANY * 
r 17 0017 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
$ Y sid : be TRANSFERRED. * 
3 '® ® 
: 20 0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOT ice * 
Bs 21 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ® 
3 $8 44 : * CORPORATION. * 
$ ‘a * 
; 626 0024 1 !* DIGITAL ASSUMES NO & PONSIBILITY FOR THE USE OR RELIABILITY OF ITS’ * 
: 25 0025 1 !* SOFTWARE ON EQUIPMEN] WHICH IS NOT SUPPLIED BY DIGITAL. ® 
; @ 0026 1 !* 2 
ew eg 0027 1 !* * 
3 28 0028 1 YR RREOR RARER RAAEERAEAEEEARAAEEEAEEAEEE EAE AE AREER AERA 
; 9 0029 1! 

; $9 5036 1 

3 H 0031 1 !++¢ 

3 2 O83 1 ' FACILITY 

3; * 0033 1! Backup/Restore 

; 34 0034 1} 

; 0035 1 | ABSTRACT: : E ; 

Sa 0036 1 | This module contains the routines that save Files-11 media on 

3; 6S 0037 1! backup media. 

> 2 0038 1! 

; FF 0039 1 ! ENVIRONMENT: 

35. & 0040 1! VAX/VMS user mode. 

; 41 0041 1 !-- 

: 42 0042 1! 

3 rh Bez : AUTHOR: M. Jack, CREATION DATE: 02-Sep-1980 

; 45 045 1 ! MODIFIED BY: 

; 646 0046 1! 

tem 4 0047 1! v03-023 Lv0510 Larry Yetto 19-JUL-1984 08:51 

; 48 0048 1! Move macros to the top. Add support for new longword DEVTYP 
3 3 ah i in physical volume attribute record 

 " boss 1! v03-022 ACG0435 Andrew C. Goldstein, 11-Jul-1984 17:38 

; 28 3036 ! Remove references to *BRHSL RESERVED 

s; 0054 1! v03-021 LMP0272 Pilan 2-Jul-1984 14:31 

3 e 9922 ! Add support for Fisst. TACLETR ps: well as very long ACLs. 

, - oe 8039 1! v03-020 Lv0480 Larry Yetto 27-APR-1984 08:32 
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Save Files-11 media 16-Sep-1984 00:30:53 VAX-11 Bliss-32 v4.0-742 Pa 2 
00 1e-Sep-19 4 0: 30:33 DISKSVMSMASTER: CBACKUP. SRCJSAVE .832;1 - (1) 
; 8 0058 1! Surpress the NOBACKUP warning message for system 
: 2B 0960 ; H tiles which are always nobackup ” , 
> 61 061 1! v03=019 LY0460 Larry Yetto 1-FEB-1984 10:25 
; 6 pOe6 , 3 Add code to make restore operation restartable ; 
; § 0065 1! Add new info messages to notify an operator when a file 
3 ee boee } is marked NOBACKUP and therefore only the file header is 
; ! saved. 
: 68 bes : } Fix compilation warning message about uninitialized variable 
: 68 0068 1 / v03-018 ACGO375 Andrew C. Goldstein, | 17-Nov-1983 18:32 
: 3 434 ! } Fix computation of backup summary Length, broken by JEP0003 
: 71 0071 1: v03-017 ACG0353 Andrew C. Goldstein, 23-Aug-1983 14:28 
See « Borg 1! Fix attribute generat ten macros to use BEGIN = END blocks, 
; fF oth, : to make their invocation less error prone. 
: «75 0075 1: V03-016 ACG0343 Andrew C. Goldstein, 19-Jul-1983 10:19 
; 76 it : } Use NORECORD option to set backup dates 
: 78 0078 1: V03-015 ACGO340 Andrew C. Goldstein, | 22-Jun-1983 18:22 
3 ie ite 4 : ; Copy last track of MSCP disks in /PHYSICAL operations 
; (81 0081 1: V03-014 JEP0003 J. Eric Pollack, 23-Apr-1983 10:53 
3 3 B08 } } Add support for encrypted savesets. 
3; (84 0084 1} v03-013 ACGO332 Andrew C. Goldstein, 19-Apr-1983 17:59 
; 44 a # : Add support for file highwater mark and RMS journal flags 
. €F 0087 1: v03-012 ACGO327 Andrew C. Goldstein, | 11-Apr-1983 15:22 
; 0088 1! Eliminate duplicate summary record when reel switch 
3 4 i434 : } occurs at start of operation. 
: 91 0091 1: v03-011 ACGO313 Andrew C. Goldstein, 12-Feb-1983 16:56 
: 3 993 ' } Add routine subtitles 
> 94 0094 1: V03-010 MLJ0104 Martin L. Jack, 26-Jan-1983 16:05 
; 0095 1! Change handling of boot block to allow copying RSX system 
3; © 0096 1! disks. Terminate record or delete pass with a message on a 
; 0097 1! writelocked input volume, rather than getting an error for. 
; 98 0098 1! every file. Avoid record or delete if errors occurred during 
4 190 0100 : : file processing. Make version string global. 
: 101 9191 1/ v03-009 MLJ0100 Martin L. Jack, 06-Jan-1983 
; 10¢ Bias : : Fix incorrectly coded tests on Length of ident area. 
: 104 0104 1: V03-008 LMP0064 L. Mark Pilant, 15-Dec-1982 9:31 
3; 105 0105 1! Track the changes made to the ACP ACL error handling. Also, 
: 18 B38 : } ingnore any ACL processing for ODS-1 files. 
: 108 $198 1 v03-007 MLJ50598 Martin L. Jack, 13-Dec-1982 19:54 
: + ' He : } Repair selected volume copy with verify. 
111 O14 1 i V03-006 LMP0044 L. Mark Pilant, | 21-Oct-1982 14:40 
: W¢ pitg ' } Add support for saving and restoring ACL's. 
: 114 0114 1! v03-005 MLJ0096 Martin L. Jack, 24-Aug-1982 15:36 


a  —  — — —————————————————————— O*"—'—_—_' ——$ 
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v04-000 1e-sep-19 4 9: 4:01 DISKSVMSMASTER: CBACKUP.SRCISAVE .832;1 . (1) 


Correct /IMAGE file number conflict bug. Change to ignore the 
NOBACKUP attribute for directory files. 


v03=004 MLJ0090 Martin L. Jack, 6-May-1982 8:20 
Discontinue the requirement that the backup summary record on a 
continuation volume be in its own block. 


YS 


v03-003 MLJ45149 Martin L. Jack, 4-Apr-1982 3:02 
Correct buffer Loss in event of input error. 
v03-002 MLJ0083 Martin L. Jack, 22-Mar-1982 13:25 


nhibit saving of scanned but not selected directories under 
/INTERCHANGE, to save space on distribution media. 


v03-001 MLJ0082 Martin L. Jack, 16-Mar-1982 13:26 
Avoid urate syyrnes records for directory files to save 
space. Avoi ile selection tests on directories in a save 
operation to ensure that needed directories are always saved. 
Add expanded file specification to NOFILES message. Correct 
NOFILES testing so that extra directory copying does not 
inhibit the message. 


v02-013 MLJ0081 Martin L. Jack, 26-Feb-1982 15:37 : 
Implement RETAINMIN and RETAINMAX for new home block fields. 


vO2-012 MLJ0075 Martin L. Jack, 28-Jan-1982 20:47 
Use FIBSV_NORECORD. Add file version Limit handling. 


v02-011 MLJ0063 Martin L. Jack, 22-Dec-1981 3:25 
Correct loop in GET_PLC_INFO, Modify operation of /RECORD so 
that backup dates of saved directories are set ony if the 
directory was selected. Modify operation of /DELETE so that 
directories are not deleted. 


WR SO OBNOUVUESWN"OVOOnNOu 


v02-010 MLJ0062 Martin L. Jack, 3-Dec-1981 12:24 
Add DIR_STATUS attribute to support /INCREMENTAL. 
v02-009 MLJ0054 Martin Ls Jack, 15-Oct-1981 21:35 


Implement /VOLUME qualifier. Combine routines 
ODS1_VOLUME_ ATTRIBUTES and ODS2_ VOLUME ATTRIBUTES, and 
ODS1-FILE_ ATTRIBUTES and ODS2_FILE_ATTRIBUTES. Compute the 
implicit ROBACKUP mask for every file so that it is effective 
without /FAST. Rework placement data generation, move data 
structure definitions to COMMON. Implement /DELETE qualifier. 
mplement network save sets. Integrate GET_VM and FREE_VM 
acket routines. 


v02-008 MLJ0043 Martin L. Jack, 8-Sep-1981 16:58 
Account for RMS logical device name change. Install SGETSYI. 


v02-007 MLJ0036 _ Martin L. Jack, gene 90s | 16:13 
Extensive rewriting to complete implementation. 


v02-006 MLJ0025 Martin L. Jack, 8-May-1981 14:09 , 
Reorganize qualifier database. Implement latest version 
selection. Add action routine to S$PUTMSG for standalone. 
Make /RECORD restartable. 
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SAVE Save Files-11 media -Sep-1984 :30: VAX-11 Bliss-32 V4.0-74 P 4 
Vv 19-3087 1382 90:30:38 DI SKSVMGMASTER-COACKUP SRCISAVE .832;1°%° (1) 


r 
S 


3; WZ 172 1! 

; 178 1 ¢@ V02-005 MLJ0024 Martin L. Jack, 1k, ago 18:02 

; (174 1 1 } Correct problem with Pe pean attr? ute length calculation. 

: 1?) \? : } Remove dynamic LOCAL_SAVE area, since it can now be local. 

: 177 173 1 V02-004 MLJ0023 Martin L. Jack, 23-Apr-1981 11:40 

; 178 0178 1 Implement placement attribute. 

: 180 0180 1: v02=003 MLJ0020 Martin L. Jack, 20-Apr-1981 22:00 

: 13) gi ; Implement /JOURNAL aut titer, “ 

: 188 O88 1 v02-002 MLJ0016 Martin L. Jack, 6-Apr-1981 23:31 

> «6184 0184 1! Always use expanded string as related filename since resultant 
>; 185 0185 1! string may contain an incorrect directory. Correct error 

: 139 ores : message in SAVE_READ. 

: 188 0188 1 | v02-001 MLJ0010 Martin L. Jack, 25-Mar-1981 17:18 

; «4189 0189 1! Reorganize global storage. Cheneye for standalone operation. 
: 190 0190 1! Change “'slow’’ file scan to use BACKUP directory scan logic. 

; 191 0191 1! Implement image restore. Implement Listing concurrent with 

; 1 bios : } another operation. Ensure that Q10 service failures are fatal. 
> 19% 0194 1 ine 
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SAVE Save Files-11 media 18-se 1984 00:30:53 VAX-11 Bliss-32 V4.0-742 Page 5 
V04=000 1o-30b71 982 9F:8RibF SES cSungmaStensCOACKUP SRCISAVE.832:1°%" (23 
: 196 195 1 LIBRARY *SYSS$LIBRARY:L1B°; 
; 19 196 1 REQUIRE ‘LIBS:BACKDEF'; 
: #198 $ 1 REQUIRE ‘SRC$:COMMON'; 
; 19 1752 #1 
; 200 We 1 
; 201 1754 1 FORWARD ROUTINE 
3 4 1755 (1 SAVE _GETBUF : NOVALUE, ! Get buffer and initialize header 
; 20 1728 1 MAKE_SPACE, ! Allocate space in buffer 
> 204 17 1 SAVE _WRITE: NOVALUE, ! Release buffer to output routine 
; 205 1758 #1 SAVE_WAIT: NOVALUE, ! Wait for read 
; 206 1759 «#1 SAVE_READ: NOVALUE, ! Start asynchronous read 
; sor 1760 1 SAVE_READAHEAD: NOVALUE, ' Start read-ahead on half of buffers 
; 208 1761 1 SAVE __BLOCKS_HANDLER, ! Restart after reel change 
; 209 1706 1 SAVE _B e ! Driver to save file or volume 
; 210 1763 1 BACKOP_SUMMARY: NOVALUE, ! Generate backup aamere record 
; en 1764 1 FROM_ODS1_DATE: NOVALUE, ' Convert ODS-1 date to 64-bit format 
; 212 1765 1 ALLOC_PLC—BLOCK :NOVALUE , ' Allocate placement data block 
s glo 1766 1 ALLOC_VBN_BLOCK:NOVALUE, ' Allocate VBN data block 
: 214 1767 1 FREE_PLC_BLOCKS:NOVALUE, ' Free placement data blocks 
3 a> 1768 1 PLC_BATA: NO ° ! Extract placement data 
: 216 1769 1 DUMP_PLU_DATA: NOVALUE, ! Dump placement data to record 
3 ev 1770 1 FILE ATTRIBUTES :NOVALUE, ! Generate file attribute record 
: 218 1771 «1 VOLUME ATTRIBUTES: 
; 219 ire 1 NOVALUE, ! Generate volume attribute record 
; 220 1773 1 GEN_FID_RECORD: NOVALUE, ! Generate file ID record 
: 221 1774 1 PHYSVOL~ SUMMARY :NOVALUE, ! Generate physical attribute record 
; 222 1775 «(1 SAVE_VERIFY_REEL: 
3 €e3 1776 1 OVALUE, ! Driver to verify save set 
: 224 1777 «#1 N TR: NOVALUE, ' Convert header to attributes area 
: 225 1778 #1 SELECT_INPUT_FILE, ! Evaluate selection for input file 
; 226 1779 «1 POSTPROCESS_FILES: . 
; 227 1780 1 NOVALUE, ! Do backup date recording or deletion 
; 228 1781 1 SAVE_FiILE ID: NOVALUE, ' Save success fully processes file ID 
; 229 ree 1 SAVE_ONE_FILE_HANDLER, ' Recover from BACKUP$_CONTINUE 
; 250 1783 (1 SAVE_ONE- FILE; ' Driver to save one file 
3 go) 1784 1 PHYS SAVE: NOVALUE , ' Driver for physical save 
3; @se 1785 1 RESTARTABLE CONDITION, ! Test if condition is restartable 
: 235 1786 1 SAVE _HAN ° ' Handler for SAVE 
3; 234 1787 1 SAV NOVALUE ; ! Driver for save 
3 goo 1788 1 
: $39 1789 1 
3; 237 1790 1 EXTERNAL ROUTINE 
; 238 1791 +#1 LIBSGET_COMMAND : ADDRESSING_MODE (GENERAL) , 
3; 239 1738 1 ' Get Line from SYSSCOMMAND 
; 240 1793 1 GET_VM ! Allocate virtual memory 
; 241 1794 1 FREE_VA: NOVALUE , ! Free virtual penory 
5 seg 1795 1 ASSIGN_INPUT_CHANNEL, ' Assign channel to input device 
> 26 1796 1 CLOSE_RESTORE: NOVALUE, ' Close output file 
3 244 1797 1 DEBLOCK: NOVALUE, ' Deblock a save set buffer 
3; 245 1798 1 CRYPTO_INIENC: NOVALUE WEAK, ! Init for encryption of saveset 
> 266 1799 1 CRYPTO-ENCR_BLOCK: 
: 247 1800 1 NOVALUE WEAK, ! Encrypt block 
3 248 1801 1 EXTRACT_DIR_F ILENAME : 
3 249 1 4 1 NOVALUE, ' Extract directory and name 
; 250 198 1 FAST_FILE_SCAN: NOVALUE, ' Fast file scanner 
; er 1804 1 SLOW FILE SCAN: NOVALUE, ' Slow file scanner 
: 252 1805 1 FILE-ERROR: NOVALUE, ! Signal file-related error 
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FIND_BADBLOCK, 

GET_BAD DBLOCKS. 
INIT_BUFFERS: NOVALUE, 
INIT“RESTORE: | NOVALUE. 
INIT-OUT_ SAVE: OVALUE, 
REEL~ CHECKPOINT :NOVALUE, 
FIN_OUT SAVE: NOVALUE, 
GET-BUFFER 

FREE BUFFER: | NOVALUE, 
te NOVALUE , 


AT 
WRITE BUFFER parue® 
CONCURRENT “LIST: NOVALUE, 
REST NOVALUE, 
RESTORE _ONE oe ae 


FIN_RESTORE: NOVALUE. 
WRITE_JOUR_SSNAM 


WRITE_JOUR_VOLUME : 


NOVALUE WEAK, 
WRITE_JOUR_FILE: NOVALUE WEAK, 
VALUE WEAK, 


WRITE-JOUR_DIREC yt ts 


PUTMSG_ACTRIN: NEARS 
GET_RESTART: NOVALUE; 


EXTERNAL LITERAL 


BACKUPS appeal ity. 


BACKUP$_W WRITEBACK 
BACKUP$_START gLefe, 
BACKUPS” =PELETESUL, 


KUP$~NOBACKUP 
BACKUPS_HEADCOPIED ; 


F 
! Ge 
. I 

I 

I 


E: 
NOVALUE WEAK, 


! Write 


6-Sep-1 
a=8ep 1 
ind a 
t bad block dat 
nitialize Cooter “peel 
nitia 
nitia 


i Checkpoint for reel restart 


Terminate 


' Get a buffer 

! Free a buffer 

! Wait for 1/0 completion 

! Match file sone ss 86e8 Same 
! Write a byt fer 

' List a buffer 

' Driver for restore module 


' Restore or compare a buffer 
! Finish a restore or compare 


! Write journal record for save set 


! Write a record for volume 
ournal record for file 
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984 
5 LBN in ae block table 
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= a restore or compare 


=32 V4.0-742 
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Write final journal record for directory 
Action routine for standalone $SPUTMSG 


Get restart action 


! Define global common area 
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BUILTIN 
inte ee 
INSQUE, 
REMQUE , 
ROT; 


GLOBAL BIND 


4.0-742 
ACKUP. SRCJSAVE .B32; 


1 

1 

1 

1 

: 

: Define and create the BACKUP version number string. 
. 

: * (standalone)'); 


VERSION_STRING = UPLIT BYTE (BACKUPSVERSION, 


a ee 
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v04-000 Macros for attribute record handling 122808=1 38 99:20:33 DISKSVMSMASTER: CBACKUP.SRCISAVE .832;1 ’ (3) 
3 3 1875 1 ZSBTTL ‘Macros for attribute record handling’ 

3 ¢ ! : } Macros to help in building attribute records. 

3 § 1378 1 MACRO 

3 1879 1 

: 8 1880 1 ! Store ‘’l"’ bytes from ‘'s’'. 

3 9 1881 1 } 

3 0 M 1ee6 1 STORE _(L,S)= 

3 1 M1885 1 BEGIN 

; ¢ M1884 1 ZIF L EQL 1 XTHEN 

: 3 41885 1 (.P)<0,8> = S$; P = .P +1 XFI 

; 34 " 1886 1 MIF L EQL 2 STHEN 

$ 5 4 1887 1 (.P)<0,16> = S; P = .P + 2 ZFI 

; 336 m 1888 1 ZIF L EQL 4 STHEN 

3 a2 M1889 1 (.P)<0,32> = S; P = .P + 4 &FI 

; 338 ™ 1890 1 “IF L EQL 6 XTHEN 

3; 339 M 24 1 (.P)<0,32> = .(S)<0,32>; P = .P + 4; 

: 340 m1 3 1 (.P)<0,16> = .((S)44)<0,16>; P = .P'+ 2 FI 
> 341 M1893 1 MIF L EQL & XTHEN 

; 306 M1894 1 ee fis = .($)<0,32>; P = .P + 4; 

: 36 M1895 1 (.P)<0, 32> = .((S)44)<0,32>; P = .P'+ 4 MFI 
3 344 M1896 1 <IF tL EQL FH ZTHEN 

s 345 M1897 1 (.P)<0,32> = .($)<0,32>; P = .P + 4; 

: 346 M1898 1 (.P)<0,32> = .(($)+4)<0,32>; P = .P'+ 4; 

; 347 ™ 1899 1 (.P)<0,32> = .((S)+8)<0,32>; P = .P + 4 RFI 
: 348 ™ 1900 1 END 

3; 349 1901 1 i, 

3; 350 1908 1 

3 3351 1903 1 

; $26 12ee ; Store attribute code ‘'n'’ of Length ‘'l"’ from address ‘‘a’’. 
; 32; M1906 1 ATV_(N,L,A)= 

3; 355 ™ 1907 1 BEGIN 

: 356 M1908 1 STORE_(2, L); 

s 357 m 1909 1 STORE (2, ZNAME("BSASK_', N)); 

; 358 ™1910 1 P = CASMOVE(L, A, .P) 

3; 359 ™1911 1 END 

3 300 at 1 i, 

3 61 191 1 

: 306 1914 1 

; = 1915 1 ! Store device name ‘'n'’ of Length ‘'l"’ from address ‘‘a’’. 
: 306 1916 1 H 

; 365 M1917 1 DVI_(N,L.A)= 

; 66 8 1918 1 BEGIN 

2 6 Mm 191 1 atone..(g. (L) + 1); 

; 368 m 1920 1 STORE~(2, ZNAME(*BSASK_", N)); 

: 369 M1921 1 ® CRSMOVE CL. A, .P); 

: 370 M19 ¢ | STORE_(1, %C°:") 

: 71 4 19 1 D 

: 7 1925 1 

: 7% 19 § 1 : ooee sees 

: 75 19 1 ! Store attribute code ‘'n'’ from ‘'s"’. 

: 7 1928 1 ' 

: 37 m 1929 1 ATT_(N,S)= 

; 378 ™ 19350 1 

: 79 m 1931 1 STORE_(4, ZNAME(*BSASS_*,N) + ZNAME(*BSASK_*, N)“*16); 
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SAVE GETBUF = set up new save set buffer 14-Sep-1984 11:54:01 DISKSVMSMASTER: CBACKUP.SRCISAVE .832;1 (4) 

3 1935 1 XSBITL ‘SAVE_GETBUF = set up new save set buffer’ 

3 13 § : ROUTINE SAVE_GETBUF: NOVALUE= 

: 1938 1 !44 

3 1939 1! 

3 1940 1 ! FUNCTIONAL DESCRIPTION: A 

3 1941 1! This routine allocates and initializes the file-specific information 

: 1308 1! in a new buffer. 

3 19435 1! 

: 1944 1 ! INPUT PARAMETERS: 

3 1945 1! NONE 

3 1946 1! 

3 1947 1! IMPLICIT INPUTS: 

3 1948 1! INPUT _FAB - Points to the current input FAB. 

3 1949 1! INPUT _NAM - Points to the current input NAM block. 

3 1950 1! INPUT_NAMEDESC = Descriptor for current input file name. 

3 1338 : INPUT_RECATTR = Record attributes of current input file. 

s 1988 1 ! OUTPUT PARAMETERS: 

3 1954 1! NONE 

; 404 1955 1! 

; 1956 1! IMPLICIT OUTPUTS: : 

> 406 1957 1! INPUT_BCB - Points to the new buffer. 

3; 407 1958 1! 

; 408 1959 1 ! ROUTINE VALUE: 

3; 409 1960 1! NONE 

: 410 1961 1! 

3 6411 1306 1 ! SIDE EFFECTS: 

3 oi¢ 1965 1! NONE 

: 41 1964 1! 

3: 414 1965 1 !-- 

3; 415 1966 1 

; 416 1967 BEGIN 

3 417 1968 2 LOCAL ; 

; 418 1969 BUFFER: REF BBLOCK; ! Pointer to buffer 

3; 419 1970 § 

; 420 1971 

: 621 1306 § ' Get the new buffer. 

3; 422 197 ! 

3; 4623 1974 INPUT_BCB = GET_BUFFER(); 

3 424 1975 

3 425 1976 

; $s6 + 44 Check for end of tape. 

: £58 1979 2 IF .COM_FLAGSCCOM_EOV) AND NOT .INPUT_FLAGSCEOV_IN_PROG) 

; $98 1980 THEN 

3; 430 1981 BEGIN 

3; 431 13a6 LOCAL 7 

3 $36 198 TEMP: REF BBLOCK 4 Tqnporery pointer to BCB 

: 43 1984 FIB: BBLOCK PBSC _LENGTHI. ' Fy 

3: 434 1985 FIB_DESC: VECTORC2), ' Descriptor for FIB 

: 435 1986 STATUS, ' Status variable 

: $36 198 10SB: VECTORC4,WORDJ; ! 1/0 status block 

i os 1988 

: 439 19 ’ ' Give back the buffer. It will be re-acquired later. 

3; 440 199 ‘ 


M16 


NPU 
> CHKPT"STATUS) ; 


i=] 


! If necessary, re-access the file that was accessed at the end of the 
previous reel. 


LF, JNPUT_FLAGSCINPUT OPEN) AND .QUALCQUAL_VERIJ 


R 
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3; 441 1338 jneyt FLAGSCEOV_IN -PROGJ = TRUE; 

3 44 199 43 rhea. INPUT. _BCB); 

3; «44 1994 INPUT_BCB = 0; 

> 444 1995 

> 445 128 

; 44 199 ' Clean out the input wait List. These reads will be reissued later. The 
; 44 1998 i first buffer, Seweyer. must be written, because it may contain other 
; 448 1999 i information preceding the input pur ier. INPUT “BLOCK will be reset to 
; 449 000 i point to the first unprocessed block. 

; 450 001 i 

; «4451 One SAVE_W 

> 4 ¢ 99 UNTIC REMQUE(. INPUT_WAITCOJ, TEMP) DO 

3 4 04 4 N 

> 454 005 4 WAIT(. TEMP); 

3; 455 O06 4 INPUT BLOCK = MINU(.INPUT_BLOCK 

; 456 007 4 - TEMPE CB RECORD], BRHSL_ADDRESS)); 

; 457 2008 4 pace “BUFFER. TEMP) 

; 458 344 END 

3; 459 010 

; 460 2011 

3 ) sols ; ; Do the physical reel change. 

; 46 soi if bey, JOUR] THEN WRITE_JOUR_VOLUME(); 

; 4646 sola FIN -puT As AVE (TRUE); 

3; 465 ois COM"F UAGSCCOM OM_E0V) = 

; 466 201 INPOT “FLAGStEDY IN, PROG) * FALSE; 

3: 467 sols Rert _CHECKPOINTT) 

3 468 019 3 INIT~OUT SAV eUTR Rue) ; 

; 469 020 IF .GuALTQUAL “JOUR THEN WRITE_JOUR_VOLUME (); 

; 470 021 3 

3 471 Oce ; 

: 47 02 : Write the backup summary record on the new reel. This is done 

: 47 2024 3 i only if save set material has already been written, to prevent 

3; 474 2025 ; i a redundant summary record in the boundary case where a reel 

3 $2? $058 ; Switch takes place immediately after initializing the save set. 

3; 477 2028 if .RWSV OUT_SEQ NEQ 0 

: 478 3534 THEN BACKUP SUMMAR R¥() 

: 479 030 ELSE INPUT_BCB = GET_BUFFER(); 

; 480 031 

: 481 O36 

: 482 03 ! If there is a reel restart in progress that failed to reposition to 
; ret Ose the current file, signal a failure. 

3: 485 O86 IF TESTBITSC(COM_FLAGSCCOM_FAIL_RSTRTJ) 

: 486 03 

3; 487 038 FILE _ERROR( : 

> 488 tH BACKUPS CONTINUE, ! See routine SAVE_ONE_FILE_HANDLER 
3 041 

3 ase 

3 04 

: 44 

: 

; 2048 
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iles-11 media 16-Sep-1984 90: 30:33 VAX-11 Bliss-32 V4.0-7 e 
BUF = set up new save set buffer 14-Sep-1984 11:54:01 DI R 


X-1 v¥4.0-742 Page 12 
SKSVMSMASTER: (BACKUP. SRCJSAVE .832;1 (4) 


qo” 

man 

—-_— 
vv 


NORECORD; 

FiBsL_ACCTLI = FIBSM_NOLOCK OR FIBSM_NORECORD; 
SEQ 
RVN 


crow re 


Vann nh Hee NOM 
8 bt ht bs bo be “VIO OTT 
SOOOWDW Wea 


LE — 
OUVRKONCVO NTN He my 
— 


HA\ 
: 

.STATUS THEN STATUS = .10SBC0]; 
IF NOT .STATUS 


FILE_ERROR( 
BACKUPS_CONTINUE, ! See routine SAVE_ONE_FILE_HANDLER 
INPUT_FAB 


“STATUS); 
END; 
. INPUT_FLAGSCEOV_ SAVING] 
_ SIGNAL (=1); ! See routine SAVE_BLOCKS_HANDLER 


! If a file is currently open, put the file-specific information in the 
: buffer header. 


if .INPUT_FAB NEQ 0 
THEN 


BEGIN 
BUFFER = .INPUT BCBCBCB_BUFFER; 
BUF FERCBBHSW_FIB_NUM) =". INPUT_NAMCNAMSW_FID_NUM]; 
BUF FERCBBHSW_FID-SEQ] = .INPUT~NAMCNAMSW_FID-SEQ]; 
BUF FERCBBHSW_FID-RVN] = .INPUT-NAMCNAMSW_FID-RVNJ; 
BUF FERCBBHSW-DID-NUM] = .INPUT~NAM NAMSU~DID-NUM]; 
BUF FERLBBHSW_DID~SEQ] = .INPUT-NAMCNAMSW_DID-SEQ]; 
BUF FERCBBHSW-DID-RVNJ = .INPUT-NAMCNAMSWDID-RVNJ: 
(CUFF ERTBGHST _F ICENAREI)<0,8> = . INPUT_NAMEDESCCDSC$W_LENGTHI; 
- INPUT _NAMEDESCEDSC$W_LENGTH] 
; INPUT~NAMEDESCLDSCSA-POINTERS, 
BUF FERTBBHST FILENAME T+1) 
BUF FER(BBH$B_RTYPE] = . INPUT RECATTRCFATSB_RTYPE); 
BUFFER BBMSB-RATTRIB] = .IN ECATTRCFATSB_RATIRIB); 
BUF FERCBBHSW-RSIZE) = .INPUT RECATTRCFATSW_RSIZE) 
BUFFER BBHSB~BKTSIZE} = . INPOT_RECATTRCFATSB_BKISIZE): 
BUFFER BBHSB-VFCSIZE = ,INPUT~RECATTREFATSB viCSIzE ; 
BUF FER[BBHSW-MAXREC) = . INPUT RECATTRLFATSW_MAXREC); 
BUFFER BBHSL~FILESIZE) = .INPOT_STATBLKCSBKSL_FILESIZE); 


] 
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1 
-11 media 1b-sep-19 4 0:30:35 4.0742 
: ae neh TER: (BACKUP. SRCISAVE .B32; (29 


o=<= 
pe 
a's 


-TITLE SAVE F _paxe Files-11 media 
-IDENT \v04 


-PSECT COMMON,NOEXE, OVR,2 
00000 GLOBAL_BASE: 
00000 FREE LIST: 
00008 Input wait 
00010 REREAD_WAIT: 

- 00018 OUTPUT waits 


-BLK 
00020 JPI_UIC: .BLKB 
00024 JPI_-USERNAME : 


00030 JP1_DATE: “Be 
00038 JP1_NODE “Dest: 
00040 JPI_CURPRIV: 
00048 sYI _VERSION: 


-BLK 
0004C SYI_SID:.BLKB 
00050 Rws?_ HOLD_LIST: 


00058 RWSV -ERCI6: ” 
00098 RWSV_AUTODIN: 
00008 RwSV FILése! ID: 
000EO RwSV “VOLUME” ID: 
OOOEC RWSV_VOL “NUMER: 
QOOEE RWSV_SEG. “NUMER: 
QOOFO RWSV_FILE NUMBER 
Q00F4 RWSV_SAVE_QUAL: 
O00F8 RWSV_SAVE FAB: 
OOOFC RWSV_ CHAN: 
00100 RwSV_XOR “BC: 
00104 RuSV_IN_SEQ: 
00108 RWSV_IN_SEQ 0: 
~BLRB 


+o @ @ @&® oO 


— 


2 
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1 
0010¢ 
00110 
00116 
00117 
00118 
0011C 
OO11E 
00120 
00128 
0012C 
00130 
00134 
00138 
0013C 


~BL 
00140 RWSV_OUT_BLOCK_COUNT: 


00144 
00146 


00148 RWSV_OUT “GROUP. COUNT: 


00149 


0014¢ 
0018C 


001¢4 
001¢6 
001¢8 
001¢9 
OO1CA 
001¢B 
001CC 


-BLK 
001D8 COM_O_STRUCNAME : 
-BLKB 1 


1b-sep-19 4 2 09: ay! 3 


4-Sep-1984 4: 
RWSV_IN_XOR_SEQ: 
RWSV_IN_XOR_RFA: 
RWSV_LOOKAHEAD : 
RWSV_ xorsiies 
RWSV_IN_ GROUP. $1 
RWSV_IN_ERRORS: 
RWSV_IN_KORUSE : 
RWSV_IN_ORGERR: 
RWSV_IN_VBN:~ 
RWSV_IN_VBN_O: 
RWSV_ALLOC: 
RWSV_EOF : 
RWSV_OUT” SEQ: 
RWSV_OUT_VBN: 


ng 


SRR RF RR ON HD BR = oO 


RWSV_OUT -ERRORS: 
RWSV_SEQ_ Te 


RWSV PADDING: 


LK 
QUAL: _.BLKB 
COM_SSNAME : 


BLK 
COM_VALID_ TYPES: 
COM_FLAGS: 
~BLK 
COM_PADDING: 
~BLK 
COM_BUFF _COUNT: 
COM_1_SETCOUNT: 
-BLK 
COM_O_SETCOUNT: 
BLK 
COM_1_STRUCNAME : 


— 
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f 1 
issegciats (tt 


14-Sep-19 


OO1E4 
OO1EC 
0020C 
00200 
0020E 
0020F 
00210 
00210 
00214 
00216 
00218 
0021C 
00220 
00224 
00228 
0022C 
00230 
00234 
00238 
00240 
00248 
00248 
00250 
00258 
00260 
00268 
0026C 
00270 
00290 


COM_O_BSRDATE: 
ALT SSNAHE 
INPUT_FUNC : 
~BL 
INPUT _RTVPE 
OUTPUT _FUNC : 
~BLK 
FAST _STRUCLEV: 
INPUT _BEG: 
INPUT_CHAN: 
INPUT_FLAGS: 
~BLK 
INPUT PADDING: 
INPUT_FAB: 
INPUT_NAM: 
INPUT_BCB: 
INPUT_QUAL : 
INPUT_BAD: 
~BL 
INPUT_BLOCK: 
INPUT_MAXBLOCK: 
BLK 
INPUT MEDIA ID: 
INPUT .NAMEDE SC: 
INPUT_STATBLK: 
INPUT_HDR BEG: 
INPUT_CREDATE: 
INPUT_REVDATE: 
-BLK 
INPUT _EXPDATE 
INPUT_BAKDATE : 
INPUT_F ILEOWNER: 
-BLK 
INPUT_F ILE CHAR: 
-BLK 
INPUT_RECATIR: 
INPUT_HDR_END: 


53 
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er. 
1eSep-1986 11254: 


00290 
00290 
00294 
0029C 
002A4 
002A6 
002A8 
002A8 
002AC 
OO2AE 
00280 
00284 
00288 
002BC 
002C0 
002C4 
002C8 
002cc 
00204 
00364 
00364 
00368 
0036C 
00370 
00374 
00378 
0037C 
00380 


-BLKB 
INPUT_END: 


-BLKB 
INPUT_PROC_LIST: 

-BCKB 
INPUT PLACEMENT 
INPUT _VBN List: 
INPUT PLACE LEN: 
INPUT_PADDING_2: 
OUTPUT BEG: | 
OUTPUT CHAN: 
OUTPUT _FLAGS: 
OUTPUT PADDING: 
OUTPUT_FAB: | 
OUTPUT NAA 
OUTPUT_BCB: 
OUTPUT _QUAL : 
OUTPUT_BAD: 

-BLK 
OUTPUT_BLOCK: 

-BLK 
OUTPUT_MAXBLOCK: 

~BLK 
OUTPUT_DEVGEOM: 
OUTPUT AT TBUF : 
OUTPUT END: 
LIST_TOTFILES: 

-BLK 
LIST_TOTSIZE: 
VERIFY_FAB: 

~BLK 
VERIFY_USE_ COUNT: 
VERIFY_QUAL : 
COMPARE _6CB: 
FAST_BUFFER: 


-BLK 
FAST_BUFFER SIZE: 
-BLRB 4 


0 
4 
4 
4 
4 
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v04-000 SAVE. GE TSUF - set up new save set buffer 14-Sep-1984 &: 
00384 FAST_RVN: 7 
00385 FAST PADDING: 
00386 DIR_VERLIMIT: 
00388 FAST_VOL_BEG: 
00388 FAST_IMAP size: 
0038¢ FASTLINAP: 
00390 FAST_HDR_ OFFSET: 
00394 FAST_BOOT LBN: 
00398 FAST_VOL_END: 
00398 JOUR_BUFFER: 
0039C JOUR_DIR: 2 
003A0 JOUR_HIBLK: | 
003A4 JOUR_EFBLK: | 
0038 JOUR_INBLK: 
003AC JOUR_FFBYTE: 
OO3AE JOUR_INBYTE : 
00380 JOUR_STRUCT LEV: 
00382 JOUR_COUNT: 
003B3 JOUR_REVERSE : 
00384 JOUR_EXSZ: 
003B6 JOUR_PADDING: 
00388 CHKPT_HIGH SP: 
003BC CHKPT_LOW Spe 
003CO CHKPT_STACK: 
003C4 CHKPT_VARS: 
003c8 CHKPT_STATUS: 


7 
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z= 
>-. 
nw 
“wy 
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SS8ee Bt 
90300 DIR_NAM: .BLKB 
0304 DIRDEV_DESC: 
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00308 DIR, SEL bins 
003E0 DIR_SEL NIV 
003€8 DIR -STRUCLEV: 
003E9 DIR_LEVELS: 
OO3EA DIR_FLAGS: 
OO3EB DIR_STATUS: ? 
OO3EC DIR _STRUG: 
0052C DIR_STACK: 


00790 D : :BLKB 
00794 DIRT “$i LATEST: 


-BLKB 
00798 DIR_END: .BLKB 
00798 DIR “SCANLIMIT: 


-BLK 
007BC INPUT_MTL: 
-BLKB 
007¢0 OUTPUT MTL: 
007¢4 CURRENT ATL: 
007C8 CURRENT_VCB: 
007CC CURRENT WCB: 
007D0 ACL_FIB -DESCR: 


00708 ACL_FIB: ria 
00818 ACLLENGTH 


0081C ACL “eure 
00820 CRYP_IN_ CONTEXT: 
00824 CRYP_OU -EouTExT: 
00828 CRYP_DA_CONTEXT: 
0082C CRYP_DATA ENCIV: 
00834 cRYP_DATA CODE: 
00838 CRYP_DATA_KEY: 
00840 CRYP_DATA 1V: 
00848 CRYP_DATA_CKSM: 
~ ,6LKB 
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v04-000 SAVE_GETBUF = set up new save set buffer 127808 - 1 3be 90: 4:01 DISKSVMSMASTER: LCBACKUP. SRCISAVE .832; t (4) 
-PSECT CODE,NOWRT,2 
30 $f 34 56 p80 P.AAA: .ASCII ‘\V4.0\ : 
29 65 6E 6F 6C 61 64 GE 61 7% 28 20 00004 “ASCII \ (Standalone) \ : 
VERSION_STRING== __P. AAA 
sEXTRN L1BSGET_ COMMAND 
-EXTRN GET_VM, FREE_V 
“EXTRN ASSIGN INPUT CHANNEL 
.EXTRN CLOSE_RESTORE, DEBLOCK 
SEXTRN EXTRACT _DIR_FILENAME 
-EXTRN FAST_FICE se SLOW FILE_SCAN 
sEXTRN FILE~ERROR DBLO 
.EXTRN GET _BADBLO éxs So ait BUFFERS 
~EXTRN INIT RESTORE T_OUT_SAVE 
“EXTRN REEL~CHECK RPOINT. 
sEXTRN FIN OUT SAVE, GET _BUFFER 
~EXTRN FREE QOurFeR WAIT™ 
“EXTRN MATCA, WRITE BUFFER 
-EXTRN CONCURRENT LTS 
.EXTRN RESTO RESTORE -ONE RECORD 
“EXTRN FIN RESTORE GET ART 
~EXTRN BACRUPS_FACILITY~ 
.EXTRN BACKUPS$~ ~OPENIN, BACKUP$_OPENOUT 
.EXTRN BACKU LOSEIN 


DBLOCK 
SEXTRN BACKUPS-COPIED, BACKUP$_CONTINUE 
“EXTRN BACKUP$~GETCHN, BACKUP$_NOF ILES 
-EXTRN BACKUP$~STARTRECORD 


© 
z 
2 
Pd 
v 


XT “NOBACKUP 
XTRN BACKUPS" HEADCOPIED 
TRN SYSS$QI 
WEAK CRYPTO_INIENC, CRYPTO_ENCR_BLOCK 
A WRITE_JOU NAM 
. WEAK WRITES ~ JOUR- VOLUME 
-WEAK WRITE~JOUR“FILE 
WEAK WRITE~ JOUR ab IRECTORY 
-WEAK PUTMSG_A 


~ WORD Save R2,R3,R4,R5,R6,R7,R8,R9.R10,R11 : 1936 
5B 000000006 00 9€ 00002 MOVAB FILE_ERROR, R11 - : 
5a 000000006 8F p 0009 MOVL #BACRUPS CONTINUE, R10 : 
00006 00 E 9019 OVAB WRITE JOOR V * Ro : 
00 G 00 9€ 0001 MOVAB FREE BUFF FER. RR F 
000° EF 9E OO1E MOVAB INPUT ARS. R : 
5€ BO AE 9E 0002 MOVAB -80(SP), SP : 
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000000006 
oc 


F9 


0000v 


000000006 
08 


18 


03 FF42 
000000006 
B2 


000000006 
000000006 
3 FF42 


0000Vv 
000000006 
0c 
0c B2 
00 
10 
08 
10 
14 
18 
08 


a 


6E 
A 
6 


$0 


B2 


oc 
oc 
FDF4 


—— 
ao 


08 


FF24 


01B4 
04 
FF4S 


1 
0020000 
oi 

4 


OOfao —©& 


98 


o 
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—> NO 


DAOKCOME OOMDOOOM GOOCCGCCOOCCOCOT OUwmMn Pou PS POVIVOIOFPOrc°coe 
AMOANNWYS NNLS OOD ONNOO SON 3 | SOOW A  O FS NIN VO NON ITO 


Oc,» 
rx 


1 
18-Sep-19 4 
14-Sep-1984 


FB 00029 
DO 00050 
4 0034 
1 tH 8 
fe ° 8 
8 F 
DD bee 
FB 0004 
D4 00048 
FB 00048 
OF 0005 
1D 0005 
DD 0005 
FB 00059 
DO 00060 
dO 6 ¢4 
D1 00068 
1B 0006C 
00 it 
DO 0007 
DD 00076 
FB 00078 
11 00078 
E1 0007D 
FB 00083 
DD 00086 
FB 00088 
8A 0008F 
8A 00093 
FB 00096 
DD 0009D 
FB BR OR 
E1 Q00A6 
FB OQOOAC 
DS OOOAF 
13 00083 
FB 00085 
11 494 1 
FB 000 
DO 000C 
E5 000C 
DD sh 
DD 00000 
DD 000D 
4 00D 
3 00D 
5 00008 
18 BpoDE 
2C 000E1 
00E8 
DO QOOEA 
D0 O00 
09 O106 
80 0019 
A 0010C 


nN 
PR 


WG 
wr 


= 
ad 


ao uw 
ow 


10$: 


11$: 


MOV 
MOVZBL 


9:58 


#i, 
#6, 
a 


RWSV 


E BUFFER 
6 


IT 
P), 
BLOC 
RO) 
, RI 
NPUT_BLOCK 


FREE_BUFFER 
QUAL+10, 6 


A 
WAIT, TEMP 


V4.0-742 
: CBACKUP. SRCISAVE .832; 


$ 
WRITE_JOUR_VOLUME 


F IN_OUT_SAVE 
COM-FLAGS 
INPOT_FLAGS 
REEL_CHECKPOI 
INIT_OUT_SAVE 
QUAL? 


NT 


WRITE_JOUR_VOLUME 


OUT_SEQ 


#0, BACKUP_SUMMARY 


a 
INPU 
QUAL 


FILE_ERROR 
T_FLAGS, 13$ 
+T3 


#0, (SP), #0, #64, FIB 


#2097153, FIB 
nPut 
#3145728, F 1B 
NPUT NAM, RO 
6(ROT, FIB+4 
40(RO) 
#64, FiB_DESC 
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v04-000 SAVE _GETBUF = set up new save set buffer 137300-1 382 Bea DISKSVMSMASTER: CBACKUP. SRCISAVE .832; 1 : (4) 
OC AE 10 AE 9 111 MOVAB FIB, FIB_DESC+4 : 2057 
7E 7¢ 116 CLRQ 2s = (SP) + 2062 
7E 7¢€ 0011 CLRO —_ = (SP) : 
7E D4 OO11A CLRL = = (SP) : 
1¢ «=AE OOF OO1IC PUSHAB FIB_DESC ; 
7E 7C OO11F CLRQ = = (SP) ; 
20 AE 3 121 PUSHAB 1058 : 
7E BF 9A 00124 MOVZBL #114, <(SP) : 
FC A? DD 00128 USHL INPUT_CHAN : 
7E 04 4 B CLRL isp) : 
000000006 00 of FB 120 CALLS #12, SYS$QI10W : 
06 : 01 LBC ©=—- STATUS, 12$ + 2063. 
6— 3¢ 00137 MOVZWL I0SB, STATUS : | 
OA 50 £8 0013A BLBS STATUS, 13$ + 2064 | 
50 0D 00130 12$: | PUSHL STATUS + 2069 
04 A? OD 01 F PUSHL INPUT_FAB + 2068 | 
5A DD 00142 PUSHL R10 + 2066 
68 03 FB 00144 CALLS #3, FILE_ERROR : | 
OA 67 02 £1 00147 13%:  8BC #2, INPUT_FLAGS, 14$ : 2073 
7E 01 CE 00148 MNEGL #1, =(SP : 2075. 
000000006 00 01 FB O014E CALLS #1, LIBS$SIGNAL ; | 
04 A7 D5 00155 148: TSTL ‘ INPUT_FAB + 2082. 
34 13 00158 BEQL ; 
50 OC A7 00 0015A MOVL =‘ INPUT_BCB, RO ; 2085. 
56 OC AO DO 0015E MOVL  12(ROJ, BUFFER : | 
50 08 AZ 00 00162 MOVL IN + 2086) 
50 AG 24 AO 7D 00166 MOVG 6(ROT, 8O(BUFFER) : | 
58 AG 2c «AO DO 00168 MOVL 44(RO), 88(BUFFER) > 2090 | 
5c AG 24 A? 90 00170 MOVB_ INPUT_NAMEDESC, 92(BUFFER) > 2092 
5D A 28 «BB? 24 A? 28 00175 MOVC3 INPUT_NAMEDESC. @INPUT_NAMEDESC+4, - : 2096. 
OODe C6 5c 6A? «=O 0017¢ MOVL § INPUT_RECATTR, 220(BUFFER) + 2097 | 
0060 6 6A A? DO 00182 MOVL § INPUT“RECATTR*14, 224 (BUFFER) + 2100 
00E4 C6 30 A7 DO 00188 MOVL § INPUTTSTATBLK+4, 228 (BUFFER) > 2103 
04 0018E 15$: RET : 2105 | 


; Routine Size: 399 bytes, Routine Base: CODE + 0011 
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ROUTINE VALUE: 
Pointer to the allocated space. 


SIDE gig 
the output procedure and a new buffer allocated. 
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Save Files-11 media 18-56 -1984 00:30:53 VA 
MAKE SPACE = allocate space in save set buffer 1 730071382 9930383 DI 
06 1 ZSBITL "MAKE_SPACE = allocate space in save set buffer’ 
Bf : ROUTINE MAKE_SPACE(N)= 
: ee 
' 
1 | FUNCTIONAL DESCRIPTION: 
} This routine allocates space in a save set buffer. 
1 | INPUT PARAMETERS: 
: N - Number of bytes to allocate. 
1 | IMPLICIT INPUTS: 
: : INPUT_BCB - Buffer control block for current buffer. 
1 ' OUTPUT PARAMETERS: 
' } NONE 
1 | IMPLICIT OUTPUTS: 
; INPUT_BCB - Updated as appropriate. 
1 i 
1! 
. ¢ 
, ? 
1! 
1! 
1! 
1! 
1 


BEGIN 
LOCAL 2 
AREA; ! Pointer to allocated space 
If .INPUT_BCB EQL 0 
THEN 


SAVE_GETBUF () 
ELSE 


- INPUT_BCBCBCB_RECORD] + .N GTRU 
¢ - INPUT_BCBCBCB_BUFFER] + .INPUT_BCBCBCB_SIZEJ 


N 
BEGIN 


SOD NAVE WN $0 ODNOAU EWN 0 ODNOA UE WN MOOS NOU SW 0O 0 


another one. 


SAVE_WRITE(); 
SAVE ~GETBUF (5; 
END; 


AREA = .INPUT_BCBLBCB_RECORD]; 
INPUT {BCBLBCB_RECORD = ,INPUT_BCBCBCB_RECORD) + .N; 
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: Update the record pointer, and return the address of the record. 


i Insufficient space in current buffer. Write the old buffer, and get 


2 
:C 


f there is insufficient space in the current buffer, it is released to 


-742 p 
UP/SRCISAVE.B32:1°%" (8 


2 
) 


Pa 


3 
NT SKSVMGMASTERSLOACKUP SRCISAVE.B32:1°"" (83 


VAX-11 Bliss-32 V4.0-742 


e Files-11 media 
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2163 +1 END; 
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Save Files-11 media 16-Sep-1984 90:30:35 VAX=11 Bliss-32 V4.0-742 Page 24 
SAVE WRITE = write save set buffer 14-Sep-1984 11:54:01 DISKSVMSMASTER: (BACKUP. SRCISAVE .B32; 1 (6) 
164 1 ZSBITL ‘SAVE_WRITE = write save set buffer’ 
192 : ROUTINE SAVE_WRITE: NOVALUE= 
162} ise 
188 1 | FUNCTIONAL DESCRIPTION: 
170 1! This routine passes the current buffer to the appropriate output 
17) : procedure. 
138 1 | INPUT PARAMETERS: 
iio 
176 1 | IMPLICIT INPUTS: 
44 : INPUT_BCB - Pointer to current buffer. 
179 1 | QUTPUT PARAMETERS: 
180 ' NONE 
i161 ' 
2182 1 ! IMPLICIT OUTPUTS: 
\3? : INPUT_BCB - Zeroed to indicate no current buffer. 
3185 1 ' ROUTINE VALUE: 
136 : NONE 
188 1 | SIDE EFFECTS: 
+ +4 : Buffer passed to output procedure. 
AS age 
198 § BEGIN 
194 LOCAL 
195 BCB: REF BBLOCK, ' Pointer to BCB 
2196 BUFFER, ' Pointer to buffer 
$135 RECP: REF BBLOCK; ' Pointer to record 
199 
2200 BCB = .INPUT_BCB; 
201 If .BCB NEQ O 
$0¢ THEN 
Siz BEGIN 
4 : Put in the trailing null record if required. 
307 BUFFER = -BCBLBCB BUFFER]: 
08 RECP = .BCBLBCB_RECORD); 
209 LF ,RECP LEGA .BUFFER+.B8CBCBCB_S1ZEJ-BRHSK_!ENGTH 
$i 4 EGIN 
sig 4 CHSFILL(O, .BUFFER+.BCBCBCB 5) re}. nec RECP); 
13 4 RECPLBRHSW_RSIZE) = .BUFFERT.BCBLBCB_S12E)-.RECP-BRHSK_LENGTH; 
13 4 oo, BRHSW_RTYPE) = BRHSK_NULL; 
19 
Indicate no current buffer. 
20 INPUT_BCB = 0; 
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write save set buffer 


} Pass the buffer to the output routine. 
if QUAL COUAL LIST) 


ONCORRENT _LIST(.BCB); 
IF -QUALCQUAL OSAVI™ 


BEGIN 
IF a. SS_ENCRYP] AND CRYPTO_ENCR_BLOCK N 
N TRYPTO_ENCR_BLOCK (.B8CB) 

eee WRITE_BUFFER(.BCB); 


END 
ELSE DEBLSCK(.BCB, RESTORE_ONE_RECORD); 


O7FC 00000 SAVE_WRITE: 
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000000006 00 


:53. - VAX-11 Bliss-32 V4.0-742 p 5 
07 «DI SKSVMSMASTERSCBACKUP. SRCISAVE.B32:1° 9" (63 
EQOA 0 
e R2,R3,R4,R5, Rb, R7,RB8,R9,R10 : 2165 
eavero-e NCR_BLOCK, R1 F 
INPUT ERS RS : 
INPUT"BCB, BCB : 2200 
5$ 3; 2201 
12(BCB), BUFFER : 2207. 
16(BCB), RECP + 2208 
8(BCB), R1 : 2209 
Ri, BUFFER, R8 ; 
-16(R8), RO : 
RECP, Rr6 : 
RECP, R8 : 2212 
#0, (SP), #0, RB, (RECP) : 
#16, RB, (RECP) : 2213 
2(RECP) 3 2214 
INPUT Bc > 2220 
QUAL+T1, 3 2225 
3: 2226 
#1, Sil : 
QUAL+15 : 2227 
#4, QUAL+14, 3$ : 2230 
CRYPTO. ENCR. BLOCK, RO : 
Bc > 2231 
#1, CRYPTO_ENCR_BLOCK : 
BCB > 2232 
#1, WRITE_BUFFER ame 
RESTORE_ONE_RECORD : $$ 4 


#2, DEBLOCK 


SAVE 
v04-000 


3; Routine Size: 


Save Files 
SAVE _WRIT et 


127 bytes, 


media 
hn oe save set buffer 


Routine Base: 


CODE + 0109 


2 
1b-sep-19 
14-Sep-19 


04 OO07E 5$: 


Bef 


RET 
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SAVE Save Files-11 media 16-Sep-1984 00:30:53 VAX=17 Bliss-32 V4. 
v04- SAVE _WAIT = wait for pending read 14-Sep-19 4 0 308i DISKSVMSMASTER: CBAC 
; 689 7 1 SSBITL "SAVE_WAIT = wait for pending read’ 

; 690 $ 1 ROUTINE SAVE_WAIT: NOVALUE= 

; 691 1 

; +69 40 1 !4+ 

> 69 41 1! 

> 694 g 1 ! FUNCTIONAL DESCRIPTION: 

; 695 45 1! This routine waits for completion of the first pending read and 

; 636 te : passes it to the next operation. 

>; 698 re 1 ! INPUT PARAMETERS: 

; 699 2247 1! NONE 

; 700 see 1! 

; 701 49 1 ! IMPLICIT INPUTS: 

; 250 1! NONE 

; 70 ges) 1 } 

3; 704 $S26 1 ! OUTPUT PARAMETERS: 

; 705 $$2 1! NONE 

; 706 2254 1! 

g For 2255 1 ! IMPLICIT OUTPUTS: 

; 708 2256 1! NONE 

: 709 2257 1! 

; 710 2258 1 ! ROUTINE VALUE: 

$s ri 2259 1! NONE 

3 rie 2260 1! 

3 iS 2261 1 ! SIDE EFFECTS: 

; 714 $50¢ 1! NONE 

: is 22635 1! 

: 716 2264 1 !-- 

3; 717 2265 1 

3; 7 2266 § BEGIN 

; 719 2267 LOCAL 

: 720 2268 2 BLOCKS, ! Blocks in current transfer 

; 721 2269 2 TEMP, ! Temporary BCB pointer 

; us¢ 2270 3 REC: REF BBLOCK, ' Record header pointer for transfer 
.) ee 2271 STATUS; ! Status return 

: 724 $sig 2 

§ feo 227 

3 os6 $sie UNTIL REMQUE(.INPUT_WAITCOJ, INPUT_BCB) DO 

3 ve 2276 WAIT(. INPUT_BCB); 

: 729 2e77 

: 730 2278 ; 

3 4h 5t44 Point to the record, and get the number of blocks in the transfer. 
; 538 $583 REC = .INPUT_BCBCBCB_RECORD); 

3; 734 $5e¢ BLOCKS = .RECCBRHS$W_RSIZE) / 512; 

; 735 28 

: 736 284 

3 gor +H If .INPUT_BCBCBCB_IO_STATUS) 

: 738 2286 THE 

; 739 287 4&4 BEGIN 

: 740 288 4 : - : 

: 741 289 4 ! Transfer was successful. Advance the record pointer in the BCB 
3 7% 290 4 ! past the transfer. Unless this is the last transfer, which is 
3; «674 291 4 ! the case if it includes the last block to be transferred, the 

3 746 $36 & ! buffer is full and should be passed to the output procedure. If 
3: 745 2295 4 ! it is the last transfer, return with the remaining space in the 


0-742 P 7 
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| SAVE Save Files-11 media 1h-sep-19 4 90:39:34 VAX-11 Bliss-32 V4.0-742 Page 38 
‘ear SAVE_WAIT = wait for pending read 14-Sep-1984 11:54:01 DISKSVMSMASTER: (BACKUP. SRCISAVE .B832;1 (7) 
3) (676 94 4 ! buffer available for further use. 

; 74 95 4 : 

; 748 96 4 INPUT BCBCBCB_RECORD] = .REC + .RECCBRHSW_RSIZE] + BRHSC_LENGTH; 

3 749 97 4 IF .RECCBRHSL_ADDRESS] + .BLOCKS LEQU .INPUT_MAXBLOCK 

; 750 98 4 THEN SAVE_WRITE(); 

3 1 99 4 RETURN; 

; P36 00 4 E 

3; fb 01 3 ELSE 

3: 754 8 4 BEGIN 

; 755 03 4 ‘ 

; 304 4 ! Transfer was unsuccessful. Hang onto this buffer, but clear out 

3 757 She 4 ! the remaining entries in the input wait List. ALC of these 

3 res $09 : . transfers will have to be issued again. 

; 760 308 4 UNTIL REMQUE(.INPUT_WAITCOJ, TEMP) DO 

: 761 309 5 BEGIN 

3; «6fé 310 5 WAIT(. TEMP); 

. 311 «5 FREE_BUFFER(. TEMP); 

3; 764 a1§ 4 END; 

3; 765 313 4 

: 766 2314 4 

3: 767 2315 4 ! Reset the input block counter to the beginning of the failed 

3; 768 2316 4 ' transfer. Redo the transfer one block at a time noting the 

: 769 2317 4 ! blocks that fail. 

; 770 2318 4 ‘ 

s 771 2319 & INPUT BLOCK = .RECCBRHSL_ADDRESS); 

s fe 2320 & INCR RBLOCK FROM .INPUT_BLOCK TO .INPUT_BLOCK + .BLOCKS - 1 DO 

s 775 2321 5§ BEGIN 

3 774 $356 5 REC = MAKE rors + BRHSC_LENGTH); 

: 775 2303 5 RECCBRHSW_RSIZE) = 512; 

3; 776 2324 5 RECCBRHSW_RTYPE] = .INPUT_RTYPE; 

: 777 2325 5 RECCBRHSL-FLAGS) = 0; 

; 778 2326 5 IF . INPUT-FILECHARLCF CHSV DIRECTORY 

3; 779 23e7 5 THEN RECCBRHSV_DIRECTORY) = TRUE; 

; 780 2328 5 RECCBRHSL_ADDRESS) = .XBLOCK: 

; 781 2329 5 SASSUME (SBYTEOFFSET (BRHSY_BLOCKFLAGS) + 4, EQL, BRHSK_LENGTH); 

: 782 2330 5 (RECCBRHSW_BLOCKFLAGS])<0,32> = 0; 

3; es P $33: 5 STATUS = $0]0W( 

3; 784 P 336 5 FUNC=.INPUT_FUNC, 

3; 785 Pp Set 5 CHAN=. INPUT" CHAN 

> 786 P 2334 5 1OSB=iNPUT_BCBLBCB_10SB), 

; 787 P 2335 5 Pi=.REC + BRHSC_LENGTH, 

: 788 P 2336 5 P2=512, 

; 789 Sete 5 P3=.XBLOCK); 

3; 790 8 5 IF .STATUS THEN STATUS = .INPUT_BCBCBCB_IO_STATUS); 

s fi 2339 5 IF NOT .STATUS THEN IF NOT FIND BADBLOCR(.INPUT_BAD, .XBLOCK) 

; a4 340 5 THEN 

: 79 41 6 BEGIN 

: 794 ¢ 6 FILE_ERROR( 

: 795 23435 6 BACKUP$_READBLOCK, 

3; 796 2344 6 . INPUT_FAB, 

3; 797 345 6 -XBLOCR 

: 798 34 6 “ STATUSS ; 

3; 799 47 6 RECCBRHS$V_BADDATA] = TRUE; 

; 800 348 5 END; 

: 801 349 4 END; 

; 802 350 4 
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| ¥04=000 SAVE_WAIT = wait for pending read 1o-808- 1382 90: 20:33 DISKSVMSMASTER: (BACKUP. SRCISAVE.B32;1 . (3 
; 803 1 & 
; 804 5 4 ! The entire failed transfer has now been redone. Pass the buffer to 
: Hit e7 : the output procedure. 
; 80 55 4 INPUT _BCBCBCB_RECORD] = .REC + 512 + BRHSC_LENGTH; 
; 808 2$ 4 SAVE _QRITE(); 
BR 4 
; 811 26 4 ' Advance the input block pointer past this transfer, and restart the 
; gig o ? readahead. 
>; 8146 3e¢ 4 INPUT_BLOCK = .INPUT_BLOCK + Ay ered 
; 815 63 4 IF NOT .INPUT_FLAGSCEOV_IN_PROG] THEN SAVE_READAHEAD(); 
>; 816 sace 3 END; 
: 817 65 § END; 
; 818 2366 INPUT_BCB = 0; 
; 819 2367 1 END; 
O3FC 00000 SAVE_WAIT: 
- WORD Save R2,R3,R4,R5,R6,R7,RB,RI : 2238 
59 000000006 00 9€E 00002 MOVAB WAIT : 
58 00000000' EF 9€ 00009 MOVAB INPUT_BCB, R8 : 
68 FDE8 D8 OF 00010 18: REMQUE @INPUT_WAIT, INPUT_BCB : 2274 
03 1C 00015 BVC 2 3 
0107 31 00017 BRW 13$ 3 
68 DD OOOTA 2$: PUSHL INPUT_BCB 3; 2276 
69 01 FB OOOIC CALLS #1, WAIT ; 
50 68 DO 0001F MOVL INPUT_BCB, RO : 2281 
52 10 AO 00 00022 MOVL 16(ROY, REC 3 
51 62 3C 00026 MOVZWL (REC), R1 3 2282 
55 51 00000200 8F C7 Boost DIVL3 #512, R1, BLOCKS 3 
18 18 AO 9 00031 BLBC © 24 (RO), 4s 3 2285 
10 =A0 10 A142 9E 00035 MOV 16(R1)ERECI, 16(RO) > 2296 
50 55 08 A2 C1 00038 ADDL 8(REC), BLOCKS, RO : 2297 
10 AB 50 D1 00040 CMPL RO, INPUT_MAXBLOCK ; 
01 1B 00044 BLEQU 3% 3 
04 0004 RET ; 
FF35 CF 00 FB 00047 3$: CALLS #0, SAVE_WRITE : 2298 
04 0004C RET : 2287 
56 FDE8 8 OF Bp0e8 4$: REMQUE @INPUT_WAIT, TEMP 3; 2508 
10 1D 0005 BVS 5$ 3 
56 DD 00054 PUSHL TEMP : 2310 
69 g FB 00056 CALLS #1, WAIT 4 
6 DD 00059 PUSHL EMP : 2311 
000000006 00 01 FB 0005 CALLS #1, FREE_BUFFER 3 
E9 11 0006 BRB ; 2308 
0c A8 08 Ag pO 00 5$: MOVL 8(REC), INPUT_BLOCK 3 19 
57 55 OC AS Ci 00069 ADDL INPUT BLOCK, BLOCKS, R7 ; 2320 
53 0c AB 01 3 3 SUBL #1, IRPUT_BLOCK, XBLOCK 3 
0083 31 4 BRW 9$ 3 
7E 0210 fF C 00076 6$: MOVZWL #528, -(SP) 3; 2322 
FEC8 CF 1 4 0078 CALLS #1, MAKE_SPACE : 
$2 0 pO 00080 MOVL RO, REC : 


3; Routine Size: 


292 bytes, 


s-11 media 
- wait for pending read 
6 0200 
a 8 
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04 4D A 
06 =#A 
08 A 
0c 
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08 
000000006 99 
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F8 
000000006 
00000000G 00 
04 Ag 
02 5 
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10 Ad 0210 
FE71 3=CF 
Oc 3 AB 
05 F4 AB 
0000v CF 
Routine Base: CODE + 0258 
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INPUT -8C8. -(SP) 
T_FUNC, = ($P) 
=CHAN 


MO 
MOVZWL 24 4 (ROY. et atus 
B ST ATUS. 9$ 


BAD 
CALLS i UT 80D. oer ock 


PUSHR #AcRS, eR4> 


PUSHL INPUT FAB 

PUSHL meackOPs -READBLOCK 
CALLS #4, FILE ERR 

BISB2 #i. RE ) 

AOBLSS RY XBLOCK, 10$ 
BRB 11 

BRW 6$ 

MOVL INP UT_BCB, RO 
MOVAB MB TROT Bie tROD 
CALL 0, SAVE_WRIT 

ADDL2 BLOCKS, INPUT BLOCK 
BB 1, INPUT FLAGS, 12$ 


#0, SAVE _READAHE AD 
CLRL INPUT_BCB 
RE 


. 7$ 


am | 


‘an 


Find enough space to hold at least one block. This can fail because there 


868 
Bes 
866 


' 
!' is a current input buffer on entry to the routine, but there is not enough 
! space in it to hold one block. If not, release it to the output procedure 
and get another. 

WHILE TRUE bo 


IF .INPUT_BCB EQL 0 THEN SAVE ny 


33.3 


WnN—Ooo 


FQ); 
BLOCKS = T.INPUT_BCB(BCB_BUFFER) + INPUT BCBCBCB $438) ° 
. INPUT-BCBCBCB-RECORD] - BRHSC_CENGTH) 7 3 
F .BLOCKS GTR O-THEN EXTTLOOP; 


I 
SAVE _WRITE(); 
END; 
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SAVE_READ = read data into save set buffer 14-Sep-1984 11:54:01 DISKSVMSMASTER: CBACKUP. SRCISAVE .832;1 (8) 
$ Hy 1 $ 1 ZSBTTL ‘SAVE_READ = read data into save set buffer’ 
; ¢ 8 1 ROUTINE SAVE_READ: NOVALUE= 
3; 8 0 1 
> 824 71 «1 «S44 
3 : 5 72 1! 
: § 75 1 ! FUNCTIONAL DESCRIPTION: : J 
; 8 7% #1! This routine gets a buffer if required, formats a data record, and 
3 B09 Le : : queues it for input. 
; 830 77 1°! INPUT PARAMETERS: 
; $3) 7261: NONE 
: ; 79 «1! 
; 8 80 1 ! IMPLICIT INPUTS: 
; 8 $8) 1! NONE 
; 835 +f 1! 
; 836 3835 1 ! OUTPUT PARAMETERS: 
; 837 384 1! NONE 
; 838 385 7! 
; 839 $ae8 1 ! IMPLICIT OUTPUTS: 
; 840 387 1! NONE 
3; 841 2388 1! 
3 Beg 334 1 ! ROUTINE VALUE: 
; 84 § 90 1! NONE 
> 844 391 1! 
> 845 Sane 1 ! SIDE EFFECTS: 
; 846 2395 1! NONE 
> 847 2394 1! 
; 848 2395 1 !-- 
; 849 2396 1 
; 850 2397 2 BEGIN 
3 83) 2398 2 LOCAL 
3 83¢ 2399 BLOCKS, ! Number of blocks to transfer 
; 85 2400 : REF BBLOCK, ! Pointer to record 
; 854 2401 STATUS; ! Status variable 
; 855 rt § 
: 856 40 one 
s Sor 2404 2 ! Make sure there is something to transfer. This could fail if. for 
; S26 sie example, read error recovery reissued enough reads to run off the end. 
; 860 2407 If .INPUT_BLOCK GTRU .INPUT_MAXBLOCK 
; 861 240 T 
; 2409 RETURN; 
: | 
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v04-000 READ = read data into save set buffer 12-8 08-1 ope 90: 30:37 DISKSVMSMASTER: (BACKUP. SRCISAVE .832;1 929 BS 

g 

Bey Limit the transfer size to the number of blocks remaining. 

88 if .BLOCKS GTR .INPUT_MAXBLOCK + 1 = .INPUT_BLOCK 

tts HEN BLOCKS = .INPUT -MAXBLOCK + 1 = INPUT BLOCK; 

885 

886 ' Format the record header. 

887 i 

888 

889 -BLOCKS * 512; 
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REC = . INPUT Hs RECORD); 


$5 BRHS$W_RSTZE 
REC INPUT _RTYPE; 


REC pris LAGS 
F wiht adaseseet tot t DIRECTORY] THEN RECCBRHSV_DIRECTORY] = TRUE; 


NPUT_BLOCK; 
SASSUME (SBYTEOFFSET (BRHSW peLOCKFLacs) + 4, EQL, BRHSK_LENGTH); 
(RECCBRHSW_BLOCKFLAGSJ)<0,32> = 0; 


! Start the read, and make sure it got issued successfully. Advance the 
input block counter past the transfer. 


0 09 CD CO Od CD CD CD CD Co: 
SSL SSE EE SE SEE 
Feo bin enon BAPE EEE PWN Nrrornrnonn cic 


PP ee ee 
WIN =O OBNANEWR OC ODNAUEWN HOODNANEWNHOODNAUW Me 


Paha age GaP GNE SINGS GSES GG GGG Gah GGG Gh Gh Gh ag gh gt gh a gh gh gh hgh gh gtd aww 


aN POORLY MORN RE A I RNS NPE ERNE pee 
me — os 


P STATUS = $010¢ 
P FUNC=. INPUT oon 
P CHAN= 2JNPUT _ ° 
P EFN=BCB 
P 1OSB=INPUT necetece 10$8), 
906 6 + om LENGTH, 
907 Pp Pes “BLOC sfot 
908 = “INPUT aE 
909 IF NOT 
910 EN 
911 FILE_E 
aig BACKUPS READERR + STSSK_SEVERE, 
914 WS). 
a3 INPUT_BLOCK ; . INPUT _BLOCK + .BLOCKS; 
917 
918 465 ! Set up various fields of the BCB, and queue the buffer to the input wait 
ah ro § : list. Finatly, clear INPUT_BCB to indicate that there is no current buffer. 
54 46 input _BCB(BCB_ puce Cacti 8 0; 
y ¢ 46 peau! “BCBCBCB_F 
92 470 TBC , BCB_ ~e hte = Bc § READ: 
924 471 InsQUEC z4NPur 608.  INPUT_QATTE1)5; 
925 47 
926 47 “ 


-EXTRN SYS$QI0 


003C 00000 SAVE_READ: 
~ WORD Save R2,R3,R4,R5 ; 2369 
55 00000000" EF 9€ 00002 MOVAB INPUT_BCB, R5- ; 


——_—__—_-—__-—-—-—_-- 


; Routine Size: 


Save Files-11 medi 
SAVE_READ = read data into save set buffer 


52 


50 


53 


04 


191 bytes, 


10 


FC7B 


4D 
08 


000000006 
000000006 
oc 


OA 
FDEC 


vb) 


Routine Base: 


Oc AS 
01 

5 

5 

65 

68 AQ 

C AO 

10 42 
1 

00000200 fr 

? 

00 

D4 

oc 86S 

54 

23 

08 

50 

65 

10 «Al 

09 

53 

ED AS 

04 Ad 

05 

02 

54 

oc Ad 

7E 

7E 

18 

10 AO 

7E 

18 «Al 

EC AS 

FO AS 

1 

C 

0 

50 

FS AS 

000000006 o 

20 =—A0 

01 

60 

65 

CODE + 037C 


D1 09 
18 of 
04 1 
3 0011 1$: 
12 0001 
4 001 
8 OO1A 28: 
001D 
CO 00021 
C BS 5 
C 029 
‘ 8 C 
4 00034 
rg te 
11 000 
00 00030 3$: 
C3 00041 
D6 4 98 
Di 0004 
15 00048 
DO 00040 
DO 00050 4$: 
DO 00053 
78 00057 
B0 00058 
98 9 Fd 
D4 0006 
4 00066 
8 00068 
DO OOO6F 5$: 
be 00073 
C 00076 
D4 00078 
BB OOO7A 
9F 0007C 
7C 0007F 
9F 00081 
OA tr 
DD 00088 
DD Spee 
4 008D 
E8 00094 
DD 00097 
DD 944 
DD 9C 
F Boas 
CO QOOA9 6$: 
p OOAD 
C 0008 
90 +4 
OE 0008 
D4 Oboes 
04 OO0BE 


2 
IE gep=198 HH 


4:01 


NPUT_BCB 


#0, SAVE_GETBUF 
NPUT CB, RO 
ar y* RI 


R 
312, R1, BLOCKS 
HS SAVE_WRITE 
INPUT_BLOCK, R 


4 
Rs, INPUT _MAXBLOCK, RO 


aaa RO 


RO, BLOCKS 
INPUT _BCB, R1 
16(R13, REC 
#9, BLOCKS, R3 


(REC) 
INPUT_RTYPE, 2(REC) 


4(RE 
#5, INPUT FILECHAR+1, 5$ 


#2, 4(RECY 


-( 
#°M<R3,R4> 
TecRECS 


24(R1) 

INPUT_FUNC, =(SP) 
INPUTCHAN 

#12, SYS$QI0 
STATUS, 6$ 

INPUT FAB 
HBACKOPS_READERR#4 
#3, FILE-ERROR 
BLOCKS, INPUT _BLOCK 
NPUT BCB, R 


#1, 10(RO) 
(RO), @INPUT_WAIT+4 
INPUT_BCB 


VAX-11 Bliss-32 V4.0-742 
DISKSVMSMASTER:C 


[NPUT_BLOCK, INPUT_MAXBLOCK 


Page 
BACKUP. SRCISAVE .B32:1 °° 


es-11 media 16- seo-1984 90: 30:33 VAX-11 Bliss-32 V4.0-742 Page 3 


SAVE Save Fil 
v04-000 SAVE_READAHEAD = initiate read-ahead 14-Sep-19 4:01 DISKSVMSMASTER: CBACKUP. SRCISAVE .832;1 
; 928 474 1 ZSBITL "SAVE_READAHEAD = initiate read-ahead' 
; 929 475 1 ROUTINE SAVE-READAHEAD: NOVALUE= 
; 9350 478 1 
3 935) 477 1 tee 
; > ¢ 478 1: 
; 9 479 1 FUNCT ign. DESCRIPTION: 
; : ¢ : , ; This routine initiates read-ahead of blocks to be saved. 
3; 9 4 ¢ 1 | INPUT PARAMETERS: 
; 937 4 1! NONE 
; 336 tbe i IMPLICIT INPUTS: 
; 940 tbe 1/ ONE 
: 941 487 1! 
; 94 488 1 ' OUTPUT PARAMETERS: 
: 94 489 1: NONE 
> 9446 490 1 
3; 945 491 1°! IMPLICIT OUTPUTS: 
: 946 492 1! NONE 
; 947 2493 1! 
: 948 st5e 4 i a VALUE: 
: 949 495 1: ONE 
: 950 49 1! 
; 951 497 1! SIDE EFFECTS: 
; 2498 1! NONE 
; 95 2499 1! 
3; 6954 2500 1 i- 
; 955 2501 1 
; 956 $208 BEGIN 
; 957 50 
; 958 2504 ' Start reads on half the buffers or until a read has been 
3 223 $202 started on the last block to be transferred. 
$ 303 3507 we FROM (.COM_BUFF_COUNT+1)/2 10 1 DO 
; 963 $208 If INPUT BLOCK GTRU .INPUT_MAXBLOCK THEN EXITLOOP; 
: 964 2510 SAVE_R READT); 
; 965 sot 2 END; 
; 966 512 1 END; 
000¢ 00000 SAVE_READAHEAD: 
-WORD Sav : 2475 
53 00000000" EF 9€ 90002 hOVAB COM ‘eure Re ount, R3 : 
50 $3 9A 000 MOVZBL COM~BUFF-COUNT, RO 3; 2507 
D6 0000C INCL 3 3 
52 50 f C7 0000 DIVL3 - RO, R2 3 
06 Bat INCL 3 
0C 11 00014 BRB $ : 
67 A3 A ot 0016 1$: CMPL NPUT_BLOCK, INPUT_MAXBLOCK ; 2509 
A dt BGTRU é 
FFIF CF 3 Fe 01D CALLS #0, SAVE_READ 3; 2510 
Fi F Boos $3: SOBGTR I, 1$ 3 $20! 
04 000 $: RET : 2512 


VOL=000 


; Routine Size: 


ave 
AVE. 


Files-1 
READAHE 


38 bytes, 


1 
AD - 


media 
initiate read-ahead 


Routine Base: CODE + 0438 


iiss 


1980 99:32:37 


Vv 
D 


A 
I 


X- 
SK 


mt et 


- SRCISAVE .B32; ? 


% 3} 


ee 


- 
| 
| 


Save Files-11 media 1986 90: 3: :53 VAX-11 Bliss-32 V 742 Page 3 
SAVE BLOCKS "HANDLER = condition handler for SAV : b-se0-19 4 4:01 DIS SKSVMEM TER: (BACKUP. SRCISAVE.B32;1 (1 

; 968 a1? 1 ZSBTTL_ "SAVE_BLOCKS_HANDLER = gong ition handler for SAVE_BLOCKS' 

; 398 1 } ROUTINE SAVE-BLOCKS—  HANDLER(SIG,MECH)= 

; «971 516 1 !e¢ 

; 97 jae € 

, 97 218 1 ! FUNCTIONAL DESCRIPTION: 

; 974 519 1! This routine is a handler for rout tne SAVE_BLOCKS, It handles getting 

; 3f? 2 9 : SAVE_BLOCKS restarted after a reel change. 

; 977 ¢ 1 ! INPUT PARAMETERS: 

; 978 5 7! $1G - Standard VMS condition handler parameters 

3; 979 524 1! MECH ~ 

; 980 525 1! 

; «981 5 § 1 ! IMPLICIT INPUTS: 

>; 98 5 1! NONE 

; 98 528 1! 

3; 9846 529 1 ! OUTPUT PARAMETERS: 

; «6985 530 1! NONE 

; 4986 BRE 

3 et 236 1 ! IMPLICIT OUTPUTS: 

; 988 535 1! NONE 

; 989 534 1! 

; 990 535 1 ! ROUTINE VALUE: 

; 991 238 1! SS$_RESIGNAL 

; O38 537 1! 

; 99 $238 1 ! SIDE EFFECTS: 

3 994 539 1! NONE 

; «995 sect 1! 

; 996 541 1 !-- 

; 997 $206 1 

: 998 See BEGIN 

: Ron 544 MAP 

3; 1000 2545 $1G: REF BBLOCK, ! Signal parameters 

3; 1001 2546 MECH: REF BBLOCK; ! Mechanism parameters 

3 18 2547 

3; 100 see8 

3 1004 49 IF .SIGCCHFSL_SIG_NAME] EQL -1 

3; 1005 2550 THEN 

: 1006 2551 BEGIN 

3; 1007 $226 opin tA -MCH_SAVRO] = FALSE; 

3: 1008 55 sured 

3 1009 554 END 

> 1010 555 sop flows 

3 1011 2556 1 END; 


-EXTRN SYSSUNWIND 
0000 00000 SAVE_BLOCKS HANDLER: 


WORD Save nothing 3 2514 
50 4 AC DO 00002 MOVL RO > 2549 
FEFFFFEE © BF 4 Ad D1 0 CMPL «6s & (RO), #1 ; 
1 : 6 BNEO ~=«:«d$ ; 
50 8 AC D 1 VL MECH, RO > 2552. 
C AD D4 00014 CLRL = 12 (RO) : | 
7E 7C 00017 CLRG = = (SP) : 2553. 


— ee i —— 


N 2 | 
SAVE Save Files-11 media 16-Sep 4 0:53 VAX-11 Bliss-32 V4.0-7 7 
v04-000 SAVE BLOCKS "HANDLER = condition handler for SAV 12:8 Sep 7138 90: HA 33 DISKSVMSMASTER: CBACKUP. +e ACISAVE. B32; s ad tT 
000000006 00 02 0019 CALLS YSSUNWIND 3 
50 0918 8F fe 0020 1$: MOVZWL 45828. RO > 2556 
04 00025 RET 3 


; Routine Size: 38 bytes, Routine Base: CODE + 0461 


8 3 


| SAVE Save Files-11 media 19-3007 138% 90: 39:33 VAX-11 Bliss-32_V4.0-742 Page 38 
° aloe SAVE_BLOCKS = save file or volume blocks 14-Sep-1984 11:54:01 DISKSVMSMASTER:CBACKUP.SRCIJSAVE.B832;1 (11) 
(3 1013 2ef 1 ZSBITL "SAVE BLOCKS = save file or volume blocks’ 

3; 1014 2 1 ROUTINE SAVE_BLOCKS= 

: 1015 59 1 

; 101 560 1 !+¢ 

; 1017 561 1 

: 198 206 1 ! FUNCTIONAL DESCRIPTION: ; 

; +484 287 : This routine is the driver for saving a file or a volume. 

$ 1931 565 1 ! INPUT PARAMETERS: 

; 10 ¢ 2566 1! NONE 

3; 102 2567 1! 

>: 1024 5268 1 ! IMPLICIT INPUTS: d 

: 1025 569 1! INPUT_BCB - Points to current buffer, if any. 

> 1026 2570 1! INPUT_BLOCK = Smallest block number to be saved. 

3 pst $23) 1! INPUT_MAXBLOCK = Largest block number to be saved. 

; 1028 276 1! INPUT_RTYPE ~- BRHSK VBN or BRHSK_LBN, as appropriate. 

3 1988 es73 1! INPUT_FUNC = 10$_READVBLK or IOS _READLBLK, as appropriate. 

3 ies sere : INPUT_ CHAN - Channel number on which input is open. 

; 1036 2576 1 ! OUTPUT PARAMETERS: 

3; 103 e577 1! NONE 

3 1034 2578 1! 

: 1035 2579 1 ! IMPLICIT OUTPUTS: ’ 

; 1036 2580 1! INPUT_BCB - Points to current buffer. 

3: 1037 2581 1! 

; 1038 sone 1 ! ROUTINE VALUE: — 

: 1039 2583 1! TRUE oe completion. If a reel=change unwind occurs, the 

3; 1040 2584 1! handler forces the routine value to FALSE. 

3 1041 2585 1! 

; Hod 2586 1 ! SIDE EFFECTS: 

3 104 2587 1! NCNE 

3 1044 2588 1! 

3 1045 2589 1 !-- 

3; 1046 2590 1 

3 1047 2591 2 BEGIN 

3 1048 $296 2 BUILTIN 

3 1049 2593 2 FP; 

; 1050 2594 3 

3; 1051 2595 . 

3 1036 2596 § ' Establish the handler. 

3 105 2597 : 

3 1054 2598 2 .FP = SAVE_BLOCKS_HANDLER; 

3 1086 3600 INPUT_FLAGSCEOV_SAVING) = TRUE; 

> 105 601 

; 1058 $006 ! Start reads on the available buffers. 

3; 1059 260 : 

; sper sont SAVE _READAHEAD () ; 

> 106 6 

; 1068 $609 ' Until all blocks have been transferred, wait on the first read, pass it to 

3 ee sone the output procedure, and start another read. 

3 1066 610 UNTIL .INPUT_BLOCK GTRU .INPUT_MAXBLOCK DO 

3: 1067 611 N 

; 1068 ol¢ SAVE_WAIT(); 

3 1069 261 SAVE-READ(); 


eee tesserae gh cn A SS 


| 
| 


| es 
3 
| SAVE Save Files-11 media 1s Sep “13 4 0:53 VAX-11 Bliss-32 V I Sg 4? 9 
, 04-000 SAVE _BLOCKS = save file or volume blocks 14-Sep-1984 0: 0 ‘3; DISK SVMSMASTER: ay UP. SRCISAVE .832; ? 9 433 
3 1070 614 END; 

; 1975 615 
3 176 $16 : 
/3 107 61 ' Until all eae reads have been processed, wait on them, and pass them to 
ls 10% $18 i the output procedure. 

; 1076 6 3 UNTIL .INPUT_WAITCO] EQL INPUT_WAITCO] DO 

: 1078 626 SAVE_WAIT(); 

3; 1079 6 END; 

3; 1080 624 

: 1081 625 

3 16 6 $ op ty _FLAGSCEOV_SAVING) = FALSE; 

: 108 6 RUE 

3: 1084 2628 «1 ENDe 


0004 00000 SAVE_BLOCKS: 
WORD 


Sav ag A 3; 2558 
52 00000000' EF 9€E 00002 MOVAB INPUT. F AGS, : 
6D CE AF 9€E 00009 MOVAB ~— SAVE BLOCKS. neath. (FP) : 2398 
62 04 88 0000D BISB2 #4, INPUT_FCAGS 3; 2599 
AO AF 00 FB 00010 CALLS #0. SAVE READS AHEAD : 2604 
ey 18 A2 01 00014 1$: CMPL INPUT T_BLOCK, INPUT_MAXBLOCK 3: 2610 
OC 1A 00019 BGTRU 2$ : 
FDB1 CF 00 FB 00018 CALLS #0, SAVE_WAIT 3 261 
FEDO CF 00 FB 00020 CALLS #0, SAVE_READ 3: 2613) 
ED 11 00025 BRB 1$ 3: 2610 
50 FDF4 cg 9E 00027 2$: MOVAB = INPUT_WAIT, RO 3; 2620 
50 FDF4 C2 D1 b00¢¢ CMPL NPUT_WAIT, RO 3 
07 13 00031 BEQL F 
FD99—s«éCF 00 FB O00 CALLS #0, SAVE_WAIT 3 2622. 
ED 11 00038 BRB : 2620. 
62 04 8A O003A 38: BICB2 #4, INPUT_FLAGS : 2626. 
50 01 00 00030 MOVL #1, RO : 2628 | 
04 00040 RET 3 


; Routine Size: 65 bytes, Routine Base: CODE + 0487 


<y 


Be Se Se Se Se Se Se Se Se Se Se ee Fe Ge Se Se Se Ge Se Se Se Ge Se Se Se Se Se Ge Se Se Se Sete Se Seas Se Se Sete se seas 


D 

_ SAVE Save Files-11 media ak So at 4 90: 30:33 VAX-11 Bliss- 
_ ¥04-000 BACKUP_SUMMARY = format volume summary record 14-Sep-19 2:54:01 DISKSVMSMAS 
3 1086 629 1 XZSBITL “BACKUP_SUMMARY = format volume summary record’ 

3 108 630 1 ROUTINE BACKUP SUMMARY: NOVALUE= 

; 1088 631 1 
|; 1089 6 § 1 !¢¢ 

> 1090 6 1! 

3 1091 6 2 1 ! FUNCTIONAL DESCRIPTION: 

3 138 . : This routine generates the backup summary record. 

3 1094 6 5 1 ! INPUT PARAMETERS: 

> 1095 638 1! NONE 

; 1096 esp 1! 

3 1097 640 1 ! IMPLICIT INPUTS: 

; 1098 641 1! NONE 

; 1099 ong 1! 

; 1100 6435 1 ! OUTPUT PARAMETERS: 

: 1101 644 1! NONE 

3 1102 2645 1! 

3; 1103 2646 1! IMPLICIT OUTPUTS: 

3 1104 sont NONE 

; 1105 648 1! 

; 1106 2649 1 ! ROUTINE VALUE: 

: 1107 2650 1! NONE 

3; 1108 $02) 1! 

3: 1109 $26 1 ! SIDE EFFECTS: 

3 1110 2653 1! NONE 

31111 2654 1! 

; ne 2655 1 !-- 

3111 2656 1 

3 1116 2657 2 BEGIN 

31115 2658 2 LOCAL 

; A 2659 $ 9. 

3111 2660 L2, 

: 1118 2661 $ Ps 

3 1119 soe LITERAL 

3 1120 2665 2 FIXED _SIZE = 

3 1121 2664 2 BRHSC_LENGTH + ' record header 

3 1122 $06? 2 + ! structure level 

3 1123 666 2 12*4 + ! 12 attribute size/type longwords 

3 1124 2667 2 ! 1, save set name (variable) 

3; 1125 2668 § : ¢: command Line (variable) 

> 1126 2669 12 + ! 3. user name 

s Wer 2679 2 BSA$SS_USERUIC + ! 4. UIC of user 

; 1128 2671 2 BSASS_DATE + ! 5. date backup was done 

3 1199 ore BSASS_OPSYS + : 6. operating system “ 

; 1130 67 BSASS_SYSVER + ae & agoret tne Syston version 

3 1131 674 BSAS$S + ! 8. CPU system ID register 

: 1136 675 ZCHARTOUNT (BACKUPSVERSION) ¢ 

s Vis 676 ! 9. version number of BACKUP 

3 1134 sort BSASS_BLOCKSIZE + ! 10. block size of save set 

3 1135 678 BSASS_XORSIZE + ! 11. size of each XOR group 

3; 1136 679 BSASS_BUFFERS; ! 12. number of buffers 

3 1137 680 

; 1138 681 

3; 1139 68 Li = 

3; 1140 68 FIXED SIZE + 

3 1141 684 -COM_SSNAMECDSC$W_LENGTH] + 

3 1142 685 -BBLOCKCQUALCQUAL-CMD_DESC], DSC$W_LENGTH); 
| 


w 


s-32 V4.0-742 © 40 
TER: (BACKUP. SRCISAVE B32: 1-9 (12) 


s¢ 
* 
: 


Save Files-11 media 16- 


=1386 90: 30:33 VAX-11 Bliss<-32 V4.0-742 Pag 
BACKUP_SUMMARY = format volume summary record 1984 11:54:01 1 


e 41 
DISKSVMSMASTER: CBACKUP.SRCISAVE .832; (12) 


- JPI_NODE_DESCCDSC$W_LENGTH]; 


iF _BOLOCKERUSY_ SAVE _GUALCOUAL OVI _DESCI, DSCSW_LENGTH] NEQ 0 
Li = .L1 + 
4+ 


3 4] 
4 6 
5 688 IF ,QUALCQUAL_COMM] 
§ 9 THEN 
690 L1 = .L1 ¢ 
8 691 4 + ! 1_attribute size/type longword 
2 24 -~BBLOCKCQUALCQUAL_COMM_DESC], DSCS$W_LENGTH); 
1 694 
¢ 695 If .JPI_NODE_DESCCDSCSW_LENGTH] NEQ 0 
696 THEN 
4 69 Ll = .L1 ¢ 
5 698 4 + 
6 
7 
8 
9 
0 
1 
2 
3 7 


-BBLOCKCRWSV_SAVE_QUALCQUAL_DVI_DESC], DSCSW_LENGTH] + 1; 


CSS SESS , ae 


11 

11 

11 

11 

11 

11 

11 

11 

11 

11 

11 

11 

11 

11 

11 

11 

11 

11 

11 

11 

11 

11 707 

11 708 

1166 709 IF .QUALCQUAL_IMAG) 

1167 710 THEN 

1168 2711 L1 = .L1 + 

1169 sig 204 + ! 2 attribute size/type longwords 
1170 2715 2 BSASS_VOLSETNAM + : 16. volume set name 
1171 2714 2 BSASS_NVOLS; ! 17. number of volumes in set 
1178 sft? 2 

117 716 2 

1174 2717 IF .COM_FLAGSCCOM_STANDALONE J 

1175 2718 THEN 

1176 2719 L1 = .L1 + ZCHARCOUNT(' (standalone)'); 

1177 sige 

1178 721 2 IF .QUALCQUAL_SS_ENCRYP) 

1179 16 THEN 

1180 72 L1 = .L1 + ‘ : 
1181 724 § 4+ ! 1 attribute/size longword 
1s sis? BSASS_CRYPDATKEY ; ! size of cryp key data 
1184 2727 L2 = (.L1 + 15) AND NOT 15; 

1185 728 P = MAKE_SPACE(.L2); 

1186 188 

1188 Fay STORE _( L2 = BRHSC_LENGTH) 

1189 73 STORED (3. BRHS$K_ SUMMARY) ; 

1190 7 STORE_(4, 0); 

1191 7 STORE-(4, 0): 

1198 735 2 STORE-(4, 0): 

119 7 STORE_(2, BBHSK_LEVEL1); 

1194 7 

1195 738 

1196 P 2739 2 ATV_("SSNAME’, 

1197 P 2740 Ee oA erreekoweres 

1198 rel . COM~ SSNAME [DSCSA“POINTER)) ; 


—————— SSS senses - 
| 
Be Se Se Se Se Se Se Se Ge Se Be Se Se Se Se Se Se Ge Fe Se Ge Se Ge Se Se FH Se Ge Ge Ge Se Se Se Se GH oe SH Se Se Se SHS Se Se Se Se Se Se Se Se ee Se Se Se Se eee 


| 
| 
| 


— 


—_—_—_____- 


. 2 

| SAVE Save Files-11 media 16-Sep-1984 00:30:53 
| VOS=000 BACKUP_SUMMARY = format volume summary record 1o=808=1382 90:30:37 
1; 1200 7% 

5 1201 P 2744 Tv_(" ND 

:1 g P 2745 -BBLOCK(QUAL QUAL _CHD_DESC3, DSC$W_LENGTH) 

; 93 046 -BBLOCKCQUALCQUAL~CMD“DESCJ. DSCSA~POINTERI); 

: 1205 748 

: 1 06 749 2 IF .QUALCQUAL_COMM) 

3; 120 750 

: 4 08 P 2751 ATV_(*COMMENT' 

> 120 P 27 é -BBLOCKCQUAL QUAL COMM DESC], DSC$W_LENGTH] 

i] 10 73s -BBLOCKCQUALCQUAL~COMM~DESCJ, DSCSA-POINTER)); 

: 121 755 
1548 756 2 ATV_CCUSERNAME*, 12, JPI USERNAME) ; 

> 1214 75 ATT-("USERUIC’, .JPI_UIT); 

: 1215 758 2 ATTIC'DATE', jP1_ BATE): 

> 1216 759 2 ATT~(*OPSYS', — BACRUPSK_OPSYS); 

: 1217 760 ATT_('SYSVER’,  .SYI_VERSION); 

: 1218 761 

3 1219 76 

: 1220 76 IF .JPI_NODE_DESCCDSCS$W_LENGTH] NEQ 0 

: 1221 764 2 THEN 

: 12 é P 2765 ATV_("NODENAME', 

3 122 e $766 . JPT_NODE_DESCCDSCS$W_LENGTH) 

+ 1224 76 . JPI “NODE ~DESCLDSC$A_POINTER); 

+ 1225 2768 

3 1226 769 

: 1227 770 2 ATT_(*SIR', .SYI_SID); 

: 1228 2771 

: 1289 277 

: 1230 277 IF .BBLOCKCRWSV_SAVE_QUALCQUAL_DVI_DESC], DSC$W_LENGTH] NEQ 0 

> 1231 277% : THEN 

3 1232 P 2775 DVI_("DRIVEID" 

> 1233 P. 2776 -BBLOCKCRWSV_SAVE_QUALCQUAL_DVI_DESC], DSC$W_LENGTH] 

> 1236 2777 “BBLOCKCRWSV~SAVE~QUALCQUAL_DVI~DESCJ. DSCSA-POINTER)); 

: 1235 sire 

: 1236 779 

> 1237 2780 2 IF .COM_FLAGSCCOM_STANDALONE) 

: 1238 3781 THEN 

3; 1239 P 278 v_¢ 

+ 1240 P 278 "BACKVER' 

+ 1261 P 2784 ZCHARCOUNT (BACKUPSVERSION, ° (standalone)"), 

: 1242 78 VERSION_STRING) 

: is 7 ELS 

3 12646 P 27 oS 

> 1245 P 2788 "BACKVER' 

+ 1246 P 2789 ZCHARCOUNT (BACKUPSVERSION) , 

> 1247 790 VERSION_STRING); 

3: 1248 791 

3 1269 79 

: 1250 79 ATT_("BLOCKSIZE*, .QUALCQUAL_BLOC_VALUE)); 

+ 1251 794 2 ATT~(*XORSIZE', | .QUALCQUAL~GROU-VALUE J); 

: 1258 795 2 ATT~("BUFFERS*, .QUALCQUAL~BUFF- VALUE); 

3; 125 36 

3; 1254 79 

> 1255 798 2 IF .QUALCQUAL_IMAG) 

+ 1256 799 H 


| 
2 V4.9-76 Pp | 
e BACKUP ERCISAVE .B32:1°9" (135 


— 


<a” 


Bia Bc Bs Oe Os Be Bs Oe Oe Be Se Ss Ge Se Be Se BeBe Se Se Ge Se Se Se Se Ge Fe Se Se Se Ge Se Se Se Fe Se Se Fees Se Se Se Se Ge Se Se Se Se Se Se Se Se ee Se Se Seas 


3 

SAVE Save Files-11 media 18-sep-1984 90: 20:33 VAX-11 Bliss-32 V4.0-742 Page 
v04-000 BACKUP_SUMMARY = format volume summary record 14-Sep-1984 11:54:01 DISKSVMSMASTER: (BACKUP.SRCISAVE.632;1 (1 

1257 00 BEGIN 

1 : 01 ATT_(*VOLSETNAM’, COM_]_STRUCNAME); 

1 0 ATT-("NVOLS', -COM_T_SETCOUNT); 

; rs 0 END; 

; 805 Move saveset encryption data to summary record 

1264 SoS if .QUALCQUAL_SS_ENCRYP) 

1265 808 THEN 

1$68 4 ATV_C'CRYPDATKEY’, BSASS_CRYPDATKEY, CRYP_DATA_CODE); 

1268 11 CHSFILL(O, .L2 = .L1, .P); 

1269 12 END; 


03FC 00000 BACKUP_SUMMARY: 
WORD 


Save R2,R3,R4,R5,R6,R7,RB,RI s 
59 FB32 «CF «(«9E 0000 MOVAB VERSION.STRING, R9 : 
58 00000000" EF 9€ 0000 MOVAB QUAL+8, ~R8 : 
50 68 A8& HS tite MOVZWL COM_SSNAME, RO 3 
51 20 AB 3¢€ 0001 MOVZWL QUAC+40, Ri ; 
50 51 CO 00016 ADDL2. R11, RO : 
56 70 AO 9E 00019 MOVAB 112(RO), 41 : 
09 68 06 £1 0001D BBC #6, QUAL*S, 1$ ; 
50 10 a8 3C 00021 MOVZWL QUAL +24 rb : 
oT) 4 A046 9E 00025 MOVAB  4(RO)CL{I, L1 : 
50 FEES c8 Hs o005¢ 1$: MOV ZUL JPI_NODE_DESC, RO : 
56 04 A046 9E 00031 MOVAB 4(RO)CL1), L1 ; 
50 AO AB DO 00036 28: MOVL §§ RWSV_SAVE QUAL, RO ; 
50 18 AO 7 0003A MOVZWL 24(R0), RO : 
05 7 0005 BEQL ; 
56 05 A046 9E 00040 MOVAB 5(RO)CL1), L1 : 37 
03 02 AB 03 £1 00045 3$ BBC #3, QUAL+10, 4$ : 2? 
56 16 CO O004A ADDL2 #22, L1 : 37 
03 72 AB 01 £1 0004D 4$: BBC #1, COM_FLAGS, 5$ : 27 
56 0D 0 0005¢ ADDL2 «#18, L : 27 
03 06 «AB 04 €1 00055 Ss: BBC #4, QUAL+14, 6$ : 27 
56 1¢ €0 0005A ADDL2 #28, L : 27 
50 OF A6 9E 0005D 68 MOV 15(R6), RO : 2? 
57 50 OF CB 90061 BICL3 #15, RO, L2 : 
7 DD 00065 PUSHL L2 F 
FC6C CF 01 re steed CALL #1, MAKE_SPACE 3 
80 57 10 A 006¢ SUBW3 490 #16, L2,~(P)+ ; 
80 gi 80 00 MOVW 8=so#1, (PD : 27 
0 7¢ 0007 CLRO (PSs : 27 
0 D4 907 CLRL = (PP) + : 27 
80 0101 8F B80 0007 MOVW #257, (P)+ : 27 
0 68 A8 BO 0007C MOVW  COM_SSNAME, (P)+ : 
01 88 00 MOVW #i, (P)+ 3 
60 6f 68 A 00 MOVC3 COM_SSNAME, @COM_SSNAME+4, (P) : 
0 5 00 0089 MOVL oR ; 
80 20 A’ BO 0008 MOV QUAL +40. (P)+ : 
0 02 B0 000 MOVW = #2,“ (P+ : 


2 ee... SSS... 
SeGe Ge Ge Ge Ge ee Ge Ge Se Ge Gee 


~w 
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H 3 
| SAVE Save Files-11 media 16-Sep-1984 30:53 VAX-11 Bliss-32 V4.0-742 Pa 44 
v04=000 BACKUP_SUMMARY = format volume summary record ba aet 1 90: 30:33 DISKSVMSMAS TER: CBACKUP. SRCJSAVE .832; 1 9° 12) 
60 24 20 AB 2 93 MOVC3 QUAL+40, @QUAL+44, (P) ; 
| 5 3 Satie MOVL a : 
10 E1 9 BBC PT} QUAL +8 7$ 3 2749 
0 10 AB 80 OOOA MOVW  QUAL424, (P)+ + 2753 
. 0 8 OOAS MOVW #3, . : 
60 14 e 10 A : aBA3 moves re @QUAL+28, (P) : 
80 0004000c =F p 080 7$: MOVL. @ §2156 (P)+ + 2756 
60 FEDO g g 008 MOVC3 #12, JPI_USERNAME, (P) : 
0 DO 000BD MOVL P : 
BO 00050006 BF »D 90¢0 MOVL #327684, (P)+ : 2757 
FeCe 8 D 99¢ MOVL at yic. (P)+ : 
0006000 P b 00c MOVL #393224, (P)+ 3: 2758 
FED 8 7D 0000 MOVO Pl DATE, (P)+ : 
80 0007000 F oO aie MOVL #458754, (P)+ 3 2759 
80 040 F BO 000DF mOVW #1024 (P)+ : 
80 00080004 8F DO O00ES MOVL #524292, (P)+ + 2760 
80 FEFS «6 C b0 000EB MOVL  SYI_VERSION, (P)+ : 
51 FEEG OC ¢ 90080 MOVZWL JPI“NODE_DESC, R1 : 2763 
OF 13 000F5 BEQL 4 : 
80 1 BO 000F7 MOV) RI, (P)+4 + 2767 
80 09 80 OOOFA MOVW #9. (P)+ : 
60 FEES 08 1 28 O00FD MOVC3 1, @JPI_NODE_DESC+4, (P) : 
50 53 DO 00103 MOVL : 
BO 000A00046 BF DO 00106 8s: MOVL #655364, (P)+ : 2770 
80 FEF8 C8 DO 0010D MOVL  SYI_SID, (P)+ : 
51 AB DO 00112 MOVL RWSV_SAVE_QUAL, R1 3 2773 
51 18 CO 00116 ADDL2 #24,°R1 : 
61 8 00119 TSTW = (RIV : 
12 13 0011B ELS ssO9S : 
80 61 01 Ai 00110 ADDW3 #1, (R1), (P)+ : 2777 
80 0B 80 00121 MOVW #11, (P)4 : 
60 04 1 61 28 00124 MOVC3 (R15, a4(R1), (P) : 
50 53 DO 00129 MOVL R : 
80 3a 90 0012C MOVE #58, (P)+ : 
10 72. As 01 €1 001 ¢F 9$ BBC #1, COM_FLAGS, 10$ : 278 
> 80 000C0011 8F 060 001 MOVL #766449 (P)+ : 278 
60 69 11 28 00138 MOVC3 #17, VERSION_STRING, (P) : 
50 53 D0 0013F OVL . : 
OA 11 00142 BRB 11§ : 
80 000C0004 BF 00 00144 10$: MOVL #786436, (P)+ : 2790 
69 00 00148 MOVL V RS] “STRING, (P)+ F 
80 00000004 8F pO 00148 11$:  MOVL #851 22. (P)+ : 2793 
' AB f ote MOVZWL QUAL+72, (P)+ 3 
00060002 8F D0 00159 L #917506. (P)+ > 2794 
0 4 A&B 98 00160 MOVZBW ou +78, (P)+ ; 
0 000F0002 8F DO 00164 L #983042, (P)+ : 2795 
0 44 AB 9B 0016B MOV7BW QUAL +76. (P)+ : | 
18 02 AB 03 €1 O16F #3, 0 b+10 12$ : 2798 
0 0010009¢ 8F b0 0174 MOVL #1648588, (P)+ ; 2801 
5 00k CR BO OOITE MOVs CORT STRUCNARE: (PDS 
0 0011098 SF 6 1 v piteTic <a > 2802 
76 «AB 01 MOVZBW COM_I SETCOUNT, (P)+ : 
10 06 A 4 €1 O0O18F 12$: BBC YA DAL +14 18$ > 2807. 
80 00510018 &F oO 01394 MOVL. #5308440, (P)+ > 2809 
60 0660 C¢ 18 28 00198 MOVC3 #24, CRYP_DATA_CODE, (P) ; 
| 


ew 
i 
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3 [ 
— Save Files-11 media 1h-sep-19 4 # 90: 4 :53 VAX-11 Bliss<-32 V4.0-742 45 i 
rene BACKUP_SUMMARY = format volume summary record 14-Sep-1984 4:01 DISKSVMSMASTER: (BACKUP. SRCISAVE .B32; ? 9042) \ 
29 23 DO OO1A1 MOVL R3, P $ 
| 5 O1AG 138: susL2 Li. R? > 2811 
57 00 6E MOovC #0, (SP), #0, R7, (P) : 
oe gatas RET t 2812 


; Routine Size: 430 bytes, Routine Base: ‘CODE + 04C8 


—— 


J 
SAVE Save Files-11 media 16-Se 0:53 VAX-11 Bliss-32 V4.0-742 Pa 46 
v04-000 FROM_ODS1_DATE = convert ODS-1 date to 64 bit 14- oe 198 0: 0 33 DISKSVMSMASTER: (BACKUP. SRCIJSAVE .632;1 9° 43) 
: 1271 13. 1 ZSBTTL ‘FROM_ODS1_DATE = convert ODS-1 date to 64 bit’ 
: : i 1 : GLOBAL ROUTINE FROM_ ODS1_DATE (ADDRESS, ATT_BUFFER): NOVALUE= 
3: 1274 8 1 !e¢ 
: 1275 i7-e4 
31 6 aie 3 FUNCTIONAL DESCRIPTION: 
: ; ag £38 } } This routine converts a date in ODS-1 format to 64-bit format. 
3; 1279 821 1 ! INPUT PARAMETERS: 
: 1280 8 ¢ 1! ADDR - Pointer to input date string. 
: : 4 8 ? : : ATT_BUFFER - Pointer to output quadword. 
3; 128 5 1! IMPLICIT INPUTS: 
3: 1286 8 § 1! NONE 
3: 1285 8 1! 
3; 1286 828 1 ! OUTPUT PARAMETERS: 
: 1287 829 1! NONE 
3: 1288 830 1! 
3; 1289 831 1 ! IMPLICIT OUTPUTS: 
3 1¢90 B38 1! NONE 
: 1291 83 1! 
3 1396 834 1 ! ROUTINE VALUE: 
3: 129 835 1! NONE 
3 1294 836 1! 
: 1295 tH 1 ! SIDE EFFECTS: 
3 1296 838 1! NONE 
: 1297 839 1! 
: 1298 840 1 !-- 
r 94 841 1 
: 1300 ote BEGIN 
; 1301 84 P 
: 1306 2844 ATT_BUFFER: REF VECTOR; ! Pointer to output buffer 
3; 130 2845 LITERAL 
3: 1304 2846 DATLEN= 23; 
3 1eRe seen LOCAL 
3 1 848 DATBUF : VECTOREDATLEN. BYTE], ! Buffer for SBINTIM 
: 1307 2849 DATDESC: vECTOR(2); i Descriptor for buffer 
3; 1308 850 
; 1309 851 
; 1310 S26 IF .¢(. ADDRESS)<0,8> EQ. 0 
tata 2854 ne 
e i 855 ATT preeetes = ATT_BUFFERC1) = 0; 
; 1516 826 RE TORN 
3; 1315 5 : 
3: 1316 858 
3; 1317 859 
; 1318 860 (DATBUF +00)<0,16> = 3{; ;ADDRESS); 
3; 1319 36) (DATBUF + + 06> & *eo*s 
3; 1320 § (DATBUF +05)<0,24> = .(.AD DRESS+2); 
3 13! 86 (DATBUF +06)<0,24> = '-19° 
: 1 é 864 2 (DATBUF+09)<0,16> = .(.AD pbRESS*5); 
: 132 865 SPA TOUT oh te 8 es * *, 
: 1324 866 IF . (, ADDRESS+#7)<0, - néo 0 
: 1396 ge THER cin 
: 1327 508 (DATBUF ¢12)<0,16> = .(. ADDRESS*+7); 


ee ee ee ee ee ae Ee ee ee a eee ee eee a 
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K 

SAVE Save Files-11 media 16- 
v04-000 FROM_ODS1_DATE = convert ODS-1 date to 64 bit 14- 
; 1328 7 (DATBUF414)<0,8> = ':'; 

3; 1329 gro (DATBUF +15)< ath s , ( ADDRESS+9) ; 

. | are (DATBUF+17)<0,8> = ':'; 

3; 1331 7 (DATBUF +18)<0,16> = .(. ADDRESS+11); 

3 7 ¢ 874 

3 3 875 

3 3 a76 BEGIN 

; 1335 87 tL she te ME te = *00:0'; 

3 : 578 htc > = '0:00'; 

3 : ; 580 (DATBUF +20)<0,24> = '.00'; 

3; 1340 abe 

3 1341 88 pape sctoy = DATLEN; 

3; 1 ri} 884 DATDESCL1) = DATBUF; 

31 885 2 S$BINTIM(TIMBUF=DATDESC, TIMADR=.ATT_BUFFER); 
3 1344 2886 1 END; 
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3; Routine Size: 132 bytes, Routine Base: CODE + 0676 


> 
Aled 
QS P 
mm m 
oo 
nun O™N 
> Prwrorrnv 
—o0—-0o— 
S 
ONO 09 T9099 —9 OD OD — OOD "ODO -09o7S 


1$: 


2s: 
3$: 


VAX-11 Bliss-32_ V4.0-742 
DISKSVMSMASTER: CBACKUP. SRCISAVE .B32; 


e-EXTRN SYSSBINTIM 
«ENTRY FROM_ODS1_DATE, Save nothing 
SUBL2 


#32,°S 

MOVL ADDRESS, R1 
TSTB = (R11) 
BNEQ ~='1$ 
MOVL ATT_BUFFER, RO 
CLRO —-_ (ROT 
RET 
MOVwW  (R1), DATBUF 
MOVB = «#45 DATBUF 32 
INSV 2(R1), #0, #24, DATBUF+3 
INSV #3748141, #0, #24, DATBUF+6 
MOVW 5(R1), DATBUF+9 
MOVB #32, DATBUF+11 
TSTB = 7(R}1) 
BEQL es 
MOVW (R1), DATBUF +12 
MOVB #58, DATBUF+14 
mMOVW 9 (RI), DATBUF415 
MOVB #58, BDATBUF+17 
MOVW 11(R1), DATBUF+18 
BRB 3$ 
MOVL  #809119792, DATBUF+12 
MOVL 480846699 DATBUF +16 
INSV #3158062, #0, #24, DATBUF+20 
MOVL #23, DAT 

VAB  DATBUF, DATDESC+4 
PUSHL ATT BUFFER 
PUSHAB DATD 


DATDESC 
#2, SYSSBINTIM 
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3 
Save Files-11 media 18-Sep-19 4 90: 30:3 X-11 > 4 Pa 48 
1 4 11:54:0 SKSVMSMASTER: CBACKUP. SRCJSAVE .832;1 (14) 


ALLOC_PLC_BLOCK = allocate placement data 4-Sep-19 


3: 1 § 887 1 ZSBITL "ALLOC_PLC_BLOCK = allocate pL acenent data’ 
: ! of : 3 : ROUTINE ALLOC PLC BLOCK(TYPE,SIZE,DATA): NOVALUE= 

3; 1349 90 1 !e4 

3; 1350 891 1! 

3 1351 52 1 ! FUNCTIONAL DESCRIPTION: 

: : 2g Rez : } This routine allocates and Links in a block of placement data. 
3 1 ee Ber 1 ! INPUT PARAMETERS: 

3; 1355 38 1! TYPE - Type code for placement block. 
3; 1 28 897 1! SIZE - Size of placement data. 

3 ; ef 44 : DATA o - Pointer to data for placement block. 
3; 1359 900 1 ! IMPLICIT INPUTS: 

3; 1360 901 1! NONE 

3 1361 902 1! 

3 1 o¢ 90 1 ! OUTPUT PARAMETERS: 

3; 136 904 1! NONE > 

3 1364 905 1! 

3; 1365 906 1 ! IMPLICIT OUTPUTS: - 

3 3 907 1! NONE ‘ 

: 1367 908 1! 

3 1 909 1 ! ROUTINE VALUE: 

3; 1369 2910 1! NONE 

: 1309 2911 1! 

3; 1371 solg 1 ! SIDE EFFECTS: ~ ‘ 

; 1378 291 1! New block allocated and Linked to Listhead. 
> 137 2914 1! . 

3 1374 2915 1 !-= 

3 1375 2916 1 

3 1376 2917 BEGIN 

: it 144 2918 LOCAL ; 

; 1378 2919 REF BBLOCK; ! Pointer to allocated space 
3 1379 Sosy pe 

3; 1380 2921 

; 1381 3454 ' Allocate the new block. 

3 136 292 ! 

3; 138 2924 P = GET_VM(PLC_S_HDR + .SIZE); 

3; 1384 $352 

3; 1385 926 : " i ee oe . 

3 138 2308 : Link new block to tail of List and initialize it. 
3; 1388 929 INSQUE(.P, .INPUT_PLACEMENT(1)); 

; 1389 39 O 2 PLPLC_TYPE] = .TYPE; 

; 1390 931 PCPLC_SIZEJ = PLC_S_HDR + .SIZE; 

3; 1391 336 CHSMOVE(.SIZE, .DATA, PCPLC_DATA)); 

3 1336 93 

; 139 934 

: : » pez Count size of new block. 

3 1396 9 INPUT_PLACE_LEN = .INPUT_PLACE_LEN + .SIZE + 1; 

3; 1397 2938 END; 


Ee | 


——- 


aw Al Sct pce atock’ dy Se placement data 1b-se0-1984 90:30:37 DE SUMeHAS TERS CbACRUP “S fase 42) 


Sep- Disk SVMSMASTER: cbateur. SRCJSAVE.832;1 (14) 
007C 00000 ALLOC_PLC_BLOCK: 
=“ — ,@ORD Save R2,R3,R4,R5, Re ; 2888 
56 00000000" EF 9 0002 HOVAB INPUT PLACE ENGR Sag 
£ 08 at AC 00 ADDL 10, SIZE 3 2926 
000000006 0 1 §B 0006 CALLS #1 v ; 
F4 be 60 F 001 INSQUE (PS, @ Reut _PLACEMENT +4 + 2929 
08 A 04 AC 0019 MOVB TYPE, P) ; 29 
09 Ad 08 Ac OA 81 OOOTE ADDB3 #10, SIZE, 9(P) + 2931 
OA AO 0c BC 08 AC 28 00024 MOVC3 SIZE, a@DATA, 10(P) + 293 
0 66 3C 00028 MOVZWL INPUT_PLACE‘LEN, RO + 293 
50 08 AC CO 0002E ADDL2 SIZE,” ; 
66 50 07 Al 00032 ADDW3 #1, RO, INPUT_PLACE_LEN ; 
04 00036 RET + 2938 


; Routine Size: 55 bytes, Routine Base: CODE + O6FA 


VAX=11 Bliss-32 V 742 50 
DISKSVMSMASTER: cBacKuP. SRCISAVE .B32; ° 15) 


ae Save Files-11 media 1b-sep-19 =13% 90: a: 3 


v04-000 ALLOC_VBN “BLOCK - allocate VBN data 14-Sep-1984 
399 939 ZSBTTL "ALLOC_VBN_BLOCK = allocate VBN data’ 
ret ROUTINE ALLOC"VBN_BLOCK(VBN, COUNT) : NOVALUE = 
ie 
404 teeth rr DESCRIPTION: 
405 This routine allocates and Links in a block of VBN data. 


INPUT PARAMETERS: 
VBN 
COUNT 
IMPLICIT INPUTS: 
NONE 


rting VBN. 


- Sta 
- Block count. 


 ourPuT PARAMETERS: 
NONE 


teens > sevrees 
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OWONAUNE WN" OOONOUE WIN 


REANLSSSOVRORUN SS Sanenrunw-ooeue 
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3 7 1 

3 } 1 

3 1 1 

3 } 1 

3; 1 1 

3 3 1 

3 1 1 

3} 1 

3 7 1 

. | 1 

5 Y 1 

3 3 1 

, Y 1 

3 3 1 

3 1 1 

; 3 1 

7 1 

3 1 

3 3 1 

| 1 

3 1 960 1! ; ROUTINE VALUE : 

3 1 961 1 NONE 

3 1 962 1 

3 1 965 1 ! SIDE EFFECTS: 

3 1 2964 1 New block allocated and Linked to Listhead. 
; ; 398 Vi 

3 1 soce 1 

3 1 968 BEGIN 

3 1 969 LOCAL 

3: 1 2970 P: REF BBLOCK, Pointer to allocated space 
3 : 3372 HIGH_VBN; ! Highest VBN in range 
:4 297 

3 1 2974 INPUT pLAgse ey ON ve = TRUE; 

: 1 3979 HIGH_VBN (, 0BN7 UNT = 1, .INPUT_MAXBLOCK); 
3 1636 44 i. "AIGH. von: oeau VBN 

3: 143 297 

3 1438 978 EN BEGIN 

3; 1439 979 

3; 1440 980 ' Allocate the new block. 

3 1441 981 ! 

3 1366 st = GET_VM(VBN_S_ENTRY); 

3 144 4 

3 1444 984 ‘ 

: 1627 s+ : Link new block to tail of List and initialize it. 
2 1209 one insque(.P » INPUT _VBN Tt Habe 

> 1648 988 PCPLC_Siz€)°= VBN7S_ERTRY 

3 1449 989 4 VBN_FIRST] = N; 

3; 1450 990 PCVBN-LAST] = HIGH. _VBN; 

3: 1451 991 END; 

3 1452 992 END; 
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SAVE Save Files-11 media 16- 4 00:30:53 VAX=11 Blisse -32 vV4.0-742 1 
v04-000 ALLOC _VBN_BLOCK = allocate VBN data 14- Hn 00:30:37 DISKSVMSMASTER: (BACKUP. SRCISAVE .832; ie 9 43) 


i 
000C 00000 ALLOC_VBN BLOCK: 


.GORD Save R2,R3 : 2940 
53 00000000° a 3 9002 MOV INPUT MAXBLOCK, R3 : 
Fs A 8 88 0000 BISB2 #8, INP § t 2974 
50 ” ae 08 aC C1 0000 ADDL3 COUNT, VBR, + 2975 
50 07 0001 DECL RO : 
63 50 D1 0001 CMPL RO, INPUT_MAXBLOCK : 
03 1B 00018 BLEGU 1$ : 
50 6 DO OOO1A MOVL ee! MAXBLOCK, RO 3 
52 20 DO 0001D 1$: MOVL = RO H_V : 
06 AC 2 01 00020 CMPL HIGH _VBN; VBN : 2976 
1A 1F 00024 BLSSU 2$ : 
12 DD 00026 PUSHL + 2982. 
000000006 00 01 FB 00028 CALLS : 
70 «63 60 OF 0002F INSQUE tS, “guneut _VBN_LIST+4 + 2987. 
09 Ad 12 90 00033 MOVE = #18. -9(P : 2988 | 
OA AO 04 AC 00 00037 MOVL ven’ 10(P) > 2989. 
OE Ad 52 dO 0003¢ MOVL HIGH_VBN, 14(P) + 2990. 
04 00040 2s: RET > 2992 


; Routine Size: 65 bytes, Routine Base: CODE + 0731 
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4 
Files-11 media 1$-sep-19 4 90: 30:33 VAX-11 Bliss-32 V4.0-742 Page 52 
-PLC_BLOCKS = free placement data 14-Sep-1984 11:54:01 DISKSVMSMASTER:CBACKUP.SRCISAVE.B32;1 (16) 
1 ZSBITL “FREE_PLC_BLOCKS - 0 pana data’ 
i ROUTINE FREE-PLC“BLOCKS: NOVALUE= 
: 'e¢ 
! 
1 § FUNCTIONAL DESCRIPTION: 
: : This routine frees a List of blocks of placement data. 
1 | INPUT PARAMETERS: 
i NONE 
1 § IMPLICIT INPUTS: 
| NONE 
1 } OUTPUT PARAMETERS: 
1 NONE 
1} IMPLICIT OUTPUTS: 
| NONE 
1 ' ROUTINE VALUE: 
i : NONE 
1 ' SIDE EFFECTS: 
1 : Blocks Linked to Listhead are freed. 
| he 
1 
é BEGIN 
LOCAL 
3 REF BBLOCK; ' Pointer to allocated space 
UNTIL REMQUE(.INPUT_PLACEMENT(OJ, P) DO 
FREE_VM( .PCPLC_SIZEI, P); 
INPUT_PLACE_LEN = 0; 
UNTIL REAQUE(. INPUT VEN LISTCOI, P) DO 
FREE_VM(.PCPLC_SIZEJ, .P); 
2 END; 
1 END; 
001C 00000 FREE_PLC_BLOCKS: 
“= TWORD Save R2,R3,R4 : 2994 
54 00000000G 00 9€ 0000 MOVAB FREE_VM, R 3 
53 venta * % EF 9€ 000 MOVAB INPUT_PLACEMENT, R3 3 
52 0 683 OF 00010 18: REMQUE @INPUT_PLACEMENT, P ; 3026 
1D 00014 BVS 2s : 
DD 00016 PUSHL P ; 3028 
7E 09 A2 9A 00018 MOVZBL 9(P), -(SP) : 
64 02 FB 0001C ALLS #2, FREE_VM : 


| 


<yv 
o> 


arr ee Dd 4 g 
| SAVE Save Files-11 media 16-Sep-1984 00:30:53  VAKe11 Bliss-32 v4.0-742 Page 53 Si 
| v04=000 FREE_PLC_BLOCKS = free placement data 14-Sep-1984 11:54:01 DISKSVMSMASTER: (BACKUP.SRCIJSAVE.B32;1 | (16) ve 
| EF 11 OOO1F ereatéd1S : 3026 
| 10 AS Bt 00021 2 CLR INPUT_PLACE_LEN : 3030 
| 52 08 B3 OF 00024 3$ REMQUE Raat VBN Frist T, P 3 3031 
08 1D 00028 BvS : 
| 52 DD OOO2A PUSHL + 3033 
7E 09 Ag 9A 0008 movie. 9(P), =(SP) ; 
64 02 FB 000 9 CALLS #2. FREE_VM : 
EF 11 0003 BRB.t«3S : 3031 
04 00035 4$: RET : 3035 


; Routine Size: 54 bytes, Routine Base: CODE + 0772 
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GET_PLC_DATA = get placement data from file hea 14-Sep-1984 11: 1 (17) 


4:01 DISKSVMSMASTER: CBACKUP. SRCISAVE .832; 


ZSBTTL ‘GET_PLC_DATA = get placement data from file header’ 
ROUTINE GET_PLC_DATA(HEADER): NOVALUE= 


++ 


FUNCTIONAL DESCRIPTION: 
This routine scans a file header and its extension headers to get 
the placement data. 


! INPUT PARAMETERS: 
HEADER - Pointer to primary header. 


IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 


IMPLICIT OUTPUTS: 
INPUT PLACEMENT = List of placement data blocks. . 
PLACE _LEN = Length of placement data as file attribute. 
T~VBN List - For /VOLUME save, List of VBN ranges. 
INPUT~FLAGSLINPUT_ON_RVNJ - True if any blocks were allocated on the 


seTected RVN (even if past INPUT_MAXBLOCK). 
ROUTINE VALUE: 
NONE 
SIDE EFFECTS: 
NONE 


BEGIN 

LOCAL 
LOCAL HEADER: apt Tpite ! Buffer to read extension headers 
FILE_TD: BBLOCKCF ID$C_LENGTH) ! Current file ID 
DR: REF BBLOCK, ' Pointer to current file header 
THIS_RVN, ! RVN of current header 
THIS_START_VBN, ! Starting VBN of current header 
THIS COUNT, ! VBNs mapped by current header 
COUNT; ' Count of unplaced blocks 


Initialize. 


INPUT_PLACEMENTCO) = INPUT PLACERENTE1) = INPUT PLACEMENTCOJ: 
INPUT-VBN_LISTCOJ = INPUT_JBN_LISTC1) = INPUT_VBN_LISTCOJ; 
INPUT_PLATE LEN = 0; 

INPUT-FLAGSCINPUT_ON_RVN] = FALSE; 

THIS_RVN = . INPUT NAMCNAMSB RVNI; 

THIS_START_VBN = T; 

THIS_COUNT = 0; 

FILE-IDLFID$W_NUM) = .INPUT_NAMCNAMSW_FID_NUM); 
FILE-IDCFIDS$W-SEQ) = .INPUT_NAMCNAM$W_FID-SEQ); 
FILE-IDCFIDSW"RVN) = .INPUT_NAMCNAMS$W_FID_RVNJ; 

HDR = HEADER; 


<v | 


Be Be Be Oe Oe Be Se Se Se Se Se Be Se Be Se Be Se Se Se Se Se Be Se Se SH Ge Se SH Se Se Be Oe Se Se Se Se Gs Se Se Fee Se Se Se Se Se Se oe Sete Se Gee Ge Se eease 


| 
i 


F 4 
| SAVE Save Files-11 media 16-Sep-1984 90:30:35 VAX-11 Bliss-32 V4.0-742 Page 55 
‘the GET_PLC_DATA = get placement data from file hea 14-Sep-1984 11:54:01 DISKSVMSMASTER:CBACKUP.SRCIJSAVE.832;1 (17) 
COUNT = 0; 
Loop for all headers. 
WHILE TRUE DO 
BEGIN 
LOCAL 
MAP_AREA: REF BBLOCK, ! Pointer to map area 
tN a aa REF BBLOCK, ! Pointer to map pointer 


# - H frag | Post map area 

FIB: BBLOCKCFIBSC_LENGTHI, : 

DESC: VECTORL2 'D 

DESC: BBLOCKL124, 
VECTORE4,WORD], 


BBLOCK(10]; 


escriptor for FIB 
ACP attribute List 


Status variable 

1/0 status block ; 
True if placement pointer pending 
Data for placement block 


PEND_PLACE, 
DATA: 


j 

C 
Initialize pointers to map area. 
MAP_AREA = .HDR + .HDRCFH2$B_MPOFFSET] * 2; 
IF THDRCFH2$B_STRUCLEV) EQL T 
THEN 
4 

4 

4 

4 

‘6 

4 

4 

4 

5 

5 

5 

5 

4 

4 

4 

4 

4 

4 

4 

4 

3 

4 

4 

4 

4 

4 

4 

4 

4 

4 

5 

5 


BEGIN 
MAP_POINTER = .MAP_AREA + FM1$C_POINTERS; 
MAP_END = .MAP_POINTER + .MAP_AREALFMI$B_INUSE] * 2; 


AORN UIN ODO UO RUN =O DO0 VI 


ne oN NIN IN NIN SINS 


: Scan the header to extract placement data. 


WWWAININANIANINNAANANA 
SSoooCOOSOOOODS 


hs a a ts > 2 — + 2 a as a ta a te tt 


DYDD DVI IV IV IUD IV IVIL IV IV IUIUSIVIVIVIVIV IV IUSUSUSIUS SIV IV SUSI 
IANA AIIM RIPINININNID 2 2 OO 


AIAN AINA NIAAA AINA AAAI AIAN 


me ee ee ee ee a ed ed td td Ss 


86 ! 

4 WHILE. .MAP_POINTER LSSA .MAP_END DO 

89 7 COUNT = .COUNT + .MAP_POINTERCFM1$B COUNT] + 1; 
90 8 THIS COUNT = .THIS_COONT + .MAP_POIRTERLFM1$B_COUNT) + 1; 
91 9 MAP_POINTER = .MAP_POINTER + 4; 

4 0 END; 

+) 131 

94 1 ¢ 

+44 132 Find the next extension header. 

597 135 FILE_IDCFIDSW_NUM] = .MAP_AREACFM1$W_EX_FILNUM); 
598 136 FILEIDCFID$W-SEQ) = .MAP_AREALFM1$W_EX_FILSEQ); 
599 1 END 
600 138 ELSE 

601 139 BEGIN 

608 140 MAP_POINTER = .MAP_AREA; 

60 141 MAP—END = .MAP_POIRTER + .HDRCFH2$B_MAP_INUSE) * 2; 
604 7 

605 14 

on 193 : Scan the header to extract placement data. 

608 ry PEND_PLACE = FALSE; 

609 14 WHILE .MAP_POINTER LSSA .MAP_END DO 

610 148 BEGIN 

611 149 IF .MAP_POINTERCFM2$V_FORMAT] EQL FM2$C_PLACEMENT 


Be Se Se Oe BE Se Oe Se Be Se Se Se Se Se Fe Ge Se Se Se Se Be Be Sete Ge Se Ge Ge Se Ge Se Se Se Se Se Se Ge Se Ge Se Fe Se Se Se See Se Gee Se Se Se ee Se Ge Ge ae 


ee ee ee ee ee ae ae saa —— " ced 


TES; 
DATACBSASL_PLC_COUNT] = .DATACBSASL_PLC_COUNT] + 1; 
THIS_COUNT’= .THIS_COUNT + .DATACBSASL_PLC_COUNT); 


IF .PEND_PLACE 
THEN 


FESO OSES SAS SLOSS SS 


BEGIN 
IF .COUNT NEQ 0 
THEN 


a st a a ss 


BEGIN 
SLL OG PLE BLOCK COSASK PLC COUNT, BSA$S_PLC_COUNT, COUNT); 


END; 
IF .DATACFM2$V_LBN) 
ALLOC_PLC_BLOCK(BSASK_PLC_PLLBN, BSASS_PLC_PLLBN, DATA) 
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| ¥04-000 GET_PLC_DATA = get placement data from file hea 1 73o0- 1 3h 99:30:33 DISKSVMSMASTER: (BACKUP. SRC ISAVE .832; 1 ’ 3 v¢ 
3 16i¢ 150 5§ THEN 3 
ae gg oa 7 
3 1212 1 $ ° Save placement pointer, and note that one is pending. ; 
; 1813 139 6 DATACBSASW_PLC_PTR] = .MAP_POINTERLFM2$W_WORDOJ; ; 
: 1618 1 $ PEND PLACE = TRUE; : 
: 1619 6 MAP POINT R = .MAP_POINTER + 2; : 
He HG Y ane 2 
: 16 161 6 : 
3 12 ¢ 136 ? Extract count and LBN of retrieval pointer. : 
; 16 § 166 6 CASE. .MAP_POINTERLFM2SV_FORMAT] FROM FM2$C_FORMAT1 TO FM2$C_FORMATS OF ; 
> 1628 166 6 ; 
: iss 16f § CFM2$C FORMAT]: ; 
> 1631 169 7 DATACBSASL_PLC_COUNT] = .MAP_POINTERLFM2$B_COUNT1]; : 
: 1632 170 7 DATALBSASW-PLC-HILBN] = .MAP-POINTERLFM2$V_HIGHLBNI; ; 
> 163 171 7 DATALBSASW-PLC-LOLBN] = .MAP—~POINTERLFM2$W_LOWLBNJ; : 
; 16% 173 : pa enen = TMAP_POINTER +°4; : 
> 1636 17%4 6 : ; 
2 a gs 7 
> 1639 3177 7 DATALBSASL_PLC_COUNT] = .MAP_POINTERCFM2$V_COUNT2); ; 
3 1640 3178 7 DATACBSASL_PLC_LBN) = .MAP_POINTERLFM2$L_LBN2J; 3 
> 1661 3179 7 MAP_POINTER = -MAP_POINTER™+ 6; : 
1808 iB) pit 
> 1644 3182 6 CFM2$C_FORMAT3): ; 
> 1645 31 BEGIN : 
: 1646 3184 7 DATALBSASL_PLC_COUNT] = ROT(..MAP_POINTER, 16) AND (1°30-1); : 
> 1647 3185 7 DATALBSASL-PLC_LBN) = .MAP_POINTERCFM2SL_LBNSJ; : 
: 1648 3186 7 MAP_POINTER = -MAP_POINTER™+ 8; ; 
: 1649 3187 é END; : 
; 1650 188 6 3 
: 1651 189 6 : 
: 1 § 90 6 3 
3 1 91 6 3 
: 1838 38 
> 1656 9% 6 : 
Teas z : 
> 1659 39 : 
31 98 7 3 
3 1 99 8 FY 
. 2 : 3 
3; 1 : 
3 3 
3 1 7 3 
: 1 7 3 
21 7 : 
3 1 7 3 
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GET_PLC_DATA = get placement data from file hea 14-Sep-1984 11:54:01 DISKSVMSMASTER: CBACKUP.SRCIJSAVE.832;1 (17) 


3 1669 7 7 ALLOC_PLC_BLOCK(BSASK_PLC_PLACE, BSASS_PLC_PLACE, DATA); 
; 1670 : 7 PEND_PLACE = FALSE; 

: 1671 09 7 N 

3 1el¢ 10 6 ELSE 

3; 167 11 3 COUNT = .COUNT + .DATACBSASL_PLC_COUNT); 
3; 1674 \¢ END; 

3; 1675 13 4 END; 

3 1978 14 4 

: 167 15 4 

3; 1678 1 4 ! Find the next extension header. 

3; 1679 17 & ! 

: 1989 3 4 FILE_IDCFIDSW_NUM] = .HDORCFH2$W_EX_FIDNUM]; 

> 1681 19 4 FILEZID FIDSB_NMX) = .HDRCFHOSB—EX_FIDNMXJ; 

3 los 0 4 FILE IDCFIDSW_SEQ) = .HORLFH2SW_EX_FIDSEQ); 

3 168 1 4 IF .ADRCFH2$B_EX_FIDRVN 

> 1684 ¢ 4 THEN FILE_IDCFIDSB_RVNJ = .HORCFH2$B_EX_FIDRVNI; 
3; 1685 END; 

3 1686 $¢ 

3: 1687 225 

: Hr 4 $$8 If there is no extension header, we are done. 

3; 1690 28 IF .FILE_IDCFIDSW_NUM] FQi 0 

3; 1691 $3 THEN 

; My a 0 EXITLOOP; 

3 169 31 

3 1694 3 

3 +44 $87 Put out a placement daa block for the extension file ID. 
: 1697 235 IF .COUNT NEQ 0 

3 1698 236 THEN 

3 1699 237 & BEGIN 

3 1700 238 4 ALLOC_PLC_BLOCK(BSA$K_PLC_COUNT, BSASS_PLC_COUNT, COUNT); 
; 1701 239 4 COUNT = 0; 

: 17Re 240 END; 

: 170 41 ALLOC_PLC_BLOCK(BSASK_PLC_FID, BSASS_PLC_FID, FILE_ID); 
3 1704 seg 

3; 1705 $¢ 

3: 1706 44 ! If the RVN changes, and if required, put out a VBN block for the 
3; 1707 245 ' sequence of blocks. 

3; 1708 246 ! 

3; 1709 247 IF .THIS_RVN NEQ .FILE_IDCFIDSB_RVN) 

: 1710 see THEN 

3 1711 49 4 BEGIN 

3 rig $29 ? IF .QUALCQUAL_VOLU] AND .QUALCQUAL_VOLU_VALUE] EQL .THIS_RVN 
: 1714 $26 4 ALLOC_VBN_BLOCK(.THIS START _VBN, .THIS_ COUNT); 

3 1715 253 4 THIS_START_VBR = .THIS_START_VBR + .THIS_COUNT; 

3 fas | 54 4 THIS_COUNT = 0; 

3; 171 55 4 THIS_RVN = .FILE_IDCFIDSB_RVNI; 

3; 1718 2$ END; 

3 1719 25 

5 1769 58 

: Ht 1 +4 Read the extension header. 

3 17 g 61 CHSFILL (0 FIBSC LENGTH, FIB); 

> 1726 6¢ FIBEFIBSL_ACCTL = 0; 

: 1725 6 FIBCFIBSW-FID_NUM) = .FILE_IDCFI0SW_NUM); 
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s-11 media i) 
ATA = get placement data from file hea 14-Sep-1984 


DEF LDSW"RVNI; 


£Q) = PILE 18 FIDSW_SEQ); 
N] = at ~ 
GTH; 


ATRSC-HEADER: 


BSC. 
= ATRSS_HEADER; 
= 
= LOCAL-HEADER; 
= VU; 

j 

C 


P5= : 
IF .STATUS THEN STATUS = .10SBC0); 
If NOT .STATUS 


RROR(BACKUPS_READATTR, .INPUT_FAB, .STATUS); 


FILE_E 
FREE-PLC_SLOCKS(); 
RETURN; 
END; 
HDR = LOCAL_HEADER; 
END; 


1h-sep-1984 


OFFC 00000 GET_PLC_DATA: 
. WORD 


9E 0000 


5 F CF 
5A 00000000° EF 9E 0000 
f 090 CE 9E 000 
5 gf 9€ 0001 
04 AA 0 Baie 
6A 50 3 1A 
50 08 AA 0010 
(x 8 hee 
10 AA B84 00 9 
80 AA 08 8A 0002C 


: If required, put out a VBN block for the Last sequence of blocks. 
if -QUALCQUAL_VOLU] AND .QUALCQUAL_VOLU_VALUE] EQL .THIS_RVN 
ALLOC_VBN_BLOCK(.THIS_START_VBN, .THIS_COUNT); 


: If required, put out a placement data block for unplaced blocks. 
if .COUNT NEQ 0 AND - INPUT_PLACEMENTCO] NEQ INPUT_PLACEMENT(O] 
ALLOC_PLC_BLOCK(BSASK_PLC_COUNT, BSASS_PLC_COUNT, COUNT); 


Save R2,R3,R4,R5,R6 
ALLOC_PLC_BLOCK, R11 
NPUT- PLACEMENT, R10 


R7,R8,R9,R10,R11 


T a » RO 
RO, IRPUT-VBN_LIST+4 
RO, INPUTVBN“LIST 
INPUT PLATE LEN 
#8, IRPUT_FCAGS 


:30: VAX=11 BLiss-32_v4.0-742 p 8 
90:20: 8t SIE SUMBHASTERCCOACKUP SRCISAVE 032107" (174 


<y 


3037 


3082 
3083 


084 
085 


— 
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, SAVE Save F ilesstt media -$ep-1984 0: VAX-11 Bliss-32 V4.0-742 Pa 9 Ss 
_v04-000 GET_PLC_DATA = get “plecenent data from file hea 1 1-5 Haat 1 99: 3 OF DISKSVMSMASTER: CBACKUP. SRCISAVE .832;1 9 435 ; 
AA 00 VL NPUT_NAM, RO 3 3086 
| 33 sf Ad A MOVZBL dcROy THIS _RVN : 
9 D0 VL #1, THES START_VBN : 3087. 
7 04 B CLRL =‘ THES_COURT : 088 
68 AE 4 AO 00 000 VL 36(R0), FILE_ID : 308 
6c A 8 ad B 4 MOVW  40(RO), FILE-1D+4 : 3091 
5 6 ac D0 MOVL HEADER, HDR 3 309 
7E D4 00048 CLRL OUNT : 309 
50 01 A6 9A 0004D 1$: MOVZ2BL 1(HDR), RO + 3115 
5 664 F 9091 MOVAW (HDR)CROJ, MAP_AREA : 
01 07 «Ab 055 CMPB = 7(HDR), #i + 3116 
2F t2 0099 BNEQ 4$ : 
52 0A AO 9 B MOVAB 10(RO), MAP_POINTER + 3119 
51 08 a0 A 005F MOVZBL &8(MAP_AREA)~ R : 3120. 
54 6241 3€ 0063 MOVAW (MAP_POINTER)CR1], MAP_END : | 
54 52 D1 00067 28: CMPL §MAP_POINTER, MAP com + 3125) 
16 1€ 0006A BGEGQU 3$ ~ : 
51 01 A2 9A 006¢ MOVZBL 1 (MAP POINTER), + 3127) 
53 6E 5 1 00 ADDL3. RI COUNT dd : | 
of gr AS E 00074 MOV 1(R3) : | 
5 1 A146 3 0078 MOVAB LCRIDETHISS counts, THIS_COUNT + 3128. 
52 04 ¢ 7D ADDL #4, MAP_POINT : 3129 
ES 11 00080 $ ; 165, 
6C AE 02. =A p0 00082 3$: MOVL (MAP_AREA), FILE_ID : 3135) 
0083 31 0008 BRW 0$ : 3116) 
52 50 DO OOO8A 4$: MOVL § MAP_AREA, MAP_POINTER : 3140 
50 3A AGODA 9008 MOVZ2BL 58(A + 3141 
54 6240 3E 00091 MOVAW (MAP -POINTER) CROJ, MAP_END : 
53 D4 90095 5$: CLRL = PEND~P : 3146 
54 32 D1 00097 6$: CMPL MAP INTER, MAP_END > 3147, 
03 1 OOO9A BLSSU. 7$ ~ : 
008A 31 0009C BRW 19$ ; 
CO BF 01 A2 93 0009F 7s: BITB § 1(MAP_POINTER), #192 : 3149 
09 12 O00A4 BNEQ 9S : | 
04 AF 82 BO 0006 MOVW (MAP POINTER) ¢, DATA : 3155. 
5 01 DO QOOAA MOVL . PEND_PLACE : 3156) 
E8 11 OOOAD 8$: BRB : 3149 
51 62 02 OE EF OODAF 9S: EXTZV #14, #2, (MAP_POINTER), R1 + 3164 
02 01 51 CF 00084 CASEL #1 F | 
0029 0019 0006 00088 10$ WORD §-108,- : 
13$-108" : 
06 AE 82 9A OOOBE 11$:  MOVZBL (MAP POINTER) DATA+2 : 3169 
50 82 06 9 EF 000C EXTZV. #0, Mo. P_POINTER)+, RO : 3170 
OC AE BO 000C MOVW RO. DA : 
OA AE 82 B80 000CB MOVW (MAP OPOINTER) +, DATA+6 ; 3171 
it 11 OOOCF BRB 148 = : 3164) 
AE 82 1 00 €F 00001 128:  EXTZv #0, (MAP POINTER) +, DATA+2 : 3177) 
OA A 01 Ag b9 O07 MOVL CRAP ointeny At6 : 3178. 
5 05 ¢ oc ADDL2 #5, MAP_POINT Tek : 3179. 
OF 11 O0DF BRB 12g : 164 
50 82 9C 000E1 13$: ROTL #16, (MAP_POINTER)+, RO : 3184. 
50 1E 9° EF €5 ExTZv #0 DATA+2 3 
OA AE DO O00EB MOVL §§ (MAP_POINTER)+, DATA+6 : 3185 
06 AE D EF 14$: INCL.  DATAT : 3190 
57 6 AE CO 000F2 ADDL2 DATA+2, THIS COUNT > 3191 
2A 53 €9 000F6 BLBC  PEND_PLACE, T : 3194 


06 
06 AE 


has a NE ed LD EC AIT ae 


| 
| SAVE Save Files-11 me 
| V04=000 GET_PLC_DATA = g 
| 
| 09 05 
71 
6C 
70 
58 70 AE 
58 SCF?” 
37 
0060 8F 00 


68 
AE 
04 
04 
68 
6E 0 
AR 13 
AE of 
1 
AE 12 
6C 
68 
6C¢ 
68 


08 
11 FEC6 
08 


AB 

59 

58 70 

6€ ¢ 
sf 

AE $f 

AL 

AE 4 


AE 00000260 
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4 
-$ep-1984 00:30: VAX-11 Bliss-32_ V4.0-742 Pa 0 $ 
~300n 138i 90:30: 8F DISKSVMSMASTER: (BACKUP. SRCJSAVE .832; 1 oe 49 r 
TSTL NT ; 3197 | 
BEQL tt : 
PUSHL SP + 3200 | 
PUSHL #4 : 
SHL HX : 
CALLS #3, ALLOC_PLC_BLOCK : 
CLRL T 8 $01 
158: BC #4, DATA+1, 16$ : 3203 
PUSHAB DATA 3 3205 
PUSHL #10 3 
PUSHL #4 : 
BRB 17$ : 
16$: | PUSHAB DATA + 3207 
PUSHL # : 
PUSHL @# : 
17$: CALLS #3, ALLOC_PLC_BLOCK : 
BRW 5$ ; 3208 
18$:  ADDL2 DATA+2, COUNT ; 31) 
BRB 8$ : 3147. 
19$:  MOVB 19(HDR), FILE_ID+5 : 3219 
MOVL  14(HDR). FILETID : 3218 
TSTB =: 18 (HDR) ; 3221. 
BEQL 208 F 
MOVE 18(HDR), FILE_ID+4 : 3232 
208: STW  FILE_ID : 3228 
BNEQ 313 : 
BRW 7$ : 
21$:  TSTL COUNT : 3235 
BEQL 228 ; 
PUSHL SP : 3238, 
PUSHL #4 : | 
PUSHL a ; | 
CALLS #3, ALLOC_PLC_BLOCK : | 
CLAL : 3239 
228: SHAB FILE_ID > 3241. 
PUSHL #6 : 
PUSHL #1 : 
CALLS #3, AL LOC PLC_BLOCK : 
CMPZ2V «#0, #8, FILE_TD+4, THIS_RVN : 3247 
EQ. 480s 24$ : | 
LBC  QUAL+14, 23$ > 3250, 
CHPZV , { #8, QUAL+79, THIS_RVN ; 
PUSHL THIS_COUNT : 3252 
PUSHL THIS~START_VBN : 
CALL #2, RLLOC_VBN_BLOCK 3 
23%:  ADDL2 THIS_COUNT, TAIS_START_VBN : 3253, 
CLRL. THIS"COUNT > 3254. 
MOVZBL FALE 1D+4, THIS_RVN : 3255 
248: vcS #0, TSP), #0, #84, FIB : 3261. 
CLRLSséF'IB > 3262. 
MOVL fFILE_ID, FIB+4 > 3263. 
MOVW Aes F1B+8 : 3265 | 
MOVZBL #64, 7F1B_ DESC : 3266. 
MOV Fie FIBLDESC 4 > 3267. 
MOVL #655872, ~ATR_DESC ; 3268 


ears A eed Ve eae 
| SAVE Save Files-11 media 1$- Se 4 0:53 VAX-11 Bliss-32 V4.0-742 1 
~v04-000 GET_PLC_DATA = get placement data from file hea 12-805-1 984 99: 32: ai DISKSVMSMASTER: CBACKUP. SRCISAVE.832; ? 9 49) 
1¢ «OAL AE 9E OOTA Vv LOCAL HEADER, ATR_DESC+4 : 3270 
if AE D4 0018 CLRL ATR_DESC+8 : a 
7E 04 0018 CLRL -(SP) : 327 
1C AE 9F 0018 PUSHAB ATR_DESC : 
7E 7C OO1BA CLRO -(SP) : 
7E 04 001BC CLRL -(SP) 3 
38 OO AE OOF 18 PUSHAB FIB_DESC : 
7E 7C OO1C CLRO -(SP) : 
30 ag 9F 001C3 SH 1058 3 
32 DD 1¢6 PUSHL @# : 
FF7C cA DD OO1C PUSHL INPUT _CHAN : 
E 04 orc CLRL Ate : 
000000006 90 of FB Ce CALLS #12, SYS$QI10W 3 
0 RY O10 LBC. =: STATUS, 25$ ; 3278 
5 10 AE 3C 00108 MOVZWL 10SB, STATUS : 
1 50 €8 0010C LBS STATUS, 26$ : 3373 
50 DD OO1DF 25%: PUSHL aie : 3282. 
8% AA DD OO1E1 PUSHL FAB 3 
00000000G 8F DD O01E4 PUSHL MGACKOPS peaparte : 
000000006 00 03 FB OOTEA CALLS E-ERRO : 
78 AB 00 FB gir) CALLS #0, FREE-PLC OBLOCKS 3 3281 
56 74 ag ge O1F6 268: MOVAB LOCAL_HEADER, HDR 3 3286 
FESO 31 OO1FA BRw ; 3098 
11 FEC6 CA €9 OO1FD 278: BLBC QUAL+14, 28% : 3292 
58 FFO7 CA 0 00 €ED 00 Oe CMPZV #0, #8, QUAL+79, THIS_RVN : 
08 12 00 BNEQ 28s : 
DD 00208 PUSHL THIS_ COUN 1 3 3294 
59 DD 00200 PUSHL THis, STA : 
37 AB 02 FB 0020F CALLS Rivoc TOBNY BLOCK 3 
6—E D5 00213 288: TSTL oot ; 3299 
"as 90 1 BEQL 3 
50 6A 9E 0021 MOVAB INPUT_PLACEMENT, RO ; 
50 6A D1 OO21A CMPL i95'- PLACEMENT, RO 3 
09 13 00210 BEQL 5 
5E 0D 60 1F PUSHL 3 3301 
04 DD 00 31 PUSHL : 
8 DD 00223 PUSHL te 3 
6B FB O0¢¢3 CALLS #3, ALLOC_PLC_BLOCK : | 
04 00228 29%: RET : 3302 
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NE DUMP"PLC"DATA(ATT_AREA): NOVALUE= 


FUNCTIONAL DESCRIPTION: 

INPUT PARAMETERS: 
ATT_AREA 

IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
NONE 


mM 4 
media 16-Sep-19 
- format placement data into attr 14-Sep-19 


Be 99:82:83 


L_ "DUMP_PLC_DATA = format placement data into attribute record’ 


- Pointer to area in file attribute record. 


LOCAL 
: REF BBLOCK, ! Pointer to placement data block 
A; ! Pointer to attribute area 

A = .ATT_AREA; 
P = .INPOT_PLACEMENT(O); 
UNTIL .P EOL INPUT_PLACEMENTLO) DO 

(.A)<0,8> = ,PCLPLC_TYPE); 

A= CHSMOVE ( PLPLC SIZE - PLC_S_HDR, PLPLC_DATAJ, .A); 

P = .PCPLC_FLINK); 

END; 
END; 


OOFC 00000 DUMP_PLC_DATA: 
WORD 


7 00000000° EF 9E 000 
eee eS 
50 97 ve 19 18: 
50 01 
1 3 16 


MOVL 
MOVL 
MOV 

CMPL 


BEQL 


Save R2,R3,R4,R5,R6,R7 


VAX-11 Bliss-32 V4.0-742 
DISKSVMSMASTER: CBACKUP. SRCIJSAVE .832; 


is routine puts the placement data into the file attribute record. 


INPUT PLACEMENT, R7 


AIT_A 
INPOT_PLACEMENT, 
INPUT~PLACEMENT , 
By RO 


Pp 
RO 


529 $8 


<i 


1) ge 


¥Ou=000 SUMP _PLC BATA 4 placement data into attr 1 12: se: 1984 99: 32: ai bh eKsV nehas ERSCBACRUP SRcISAVE. B32; ” 9 483 ’ 
a 27) 
0 C 0 SUBL #10, 3 
63 OA Ab 28 000 Move RO, 10(P), (A) : 
56 86 50 00098 MOVL (PS, P 7 3344 
E3 11 00028 BRB 1$ ; 3339. 
04 0002D 28 RET : 3346) 


; Routine Size: 46 bytes, Routine Base: CODE + 09D1 


Cree ee 
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AVE Save Files-11 media 16-Sep-1984 00:30:53 VAX-11 Bliss-32 V4.0-742 Page 64 
v04-000 FILE ATTRIBUTES = format file attribute record 12-808 -13be 00: 20:33 DISKSVMSMASTER: CBACKUP. SRCIJSAVE .832;1 ° 3} 
: 1811 47 1 ZSBTTL ‘FILE_ATTRIBUTES = format file attribute record’ 

3 : ig rt : ROUTINE FILE_ATTRIBUTES(INPUT_HDR): NOVALUE= 

Bie oye 

; 1816 33 1 | FUNCTIONAL DESCRIPTION: 

3 ; \ 2 ; } This routine generates a file attribute record. 

: 1819 55 1 | INPUT PARAMETERS: 

; ies 2$ : INPUT_HDR - Pointer to file header. 

: He 38 IMPLICIT INPUTS: 

> 1826 60 1! 

; 1825 61 1 ! OUTPUT PARAMETERS: 

We Beeeeg S| pitt 

> 1828 364 1 | IMPLICIT OUTPUTS: 

Po et Sie 

: 1831 367 1 ' ROUTINE VALUE: 

1838 305 J _— 

> 1834 370 1 | SIDE EFFECTS: 

3; 1835 371 1! NONE 

We Be 

> 1838 3392 ." 

co 3376 5 RAP 

: HS +} $355 3 er, INPUT_HDR: REF BBLOCK; ! Pointer to file header 

: 18e$ 3379 MF ' Unrounded Length 

> 1844 3380 3 L2, ! Rounded length | 

; 1845 ; 81 : REF BBLOCK, ' Pointer to attribute record 

> 1846 4 § INPUT_IDENT: REF BBLOCK, ! Pointer to ident area 

: 1867 3 DLEN ' Length of ident area 

> 1848 3384 TVBN, i Boot VBN : 

> 1849 385 ACEMENT, ‘ generating placement attribute 
; 1850 3386 SAVE_ACL_PRI, ' Save ACL in primary attr record 
3 1851 3387 SAVE _ACL_EXT, ' Save ACL in extension attr record 
3 1338 3388 _BESC : BBLOCK (20), ! ACP attribute List 

; 185 389 F IB-DESC : $BBLOCK COSC$C_S_BLNI ' FIB descriptor 
; 1854 390 FIB-ACL : $BBLOCK CFIBSC~LENGTHS i FIB for ACL use 
> 1855 91 ACL-SEGMENT_SIZE, T Size of current ACL segment 

: 1826 335 STATUS, ' Status return 

; 185 39 : VECTOR (4,WORD); ! 1/0 status block 

; 1858 94 TERAL 

3; 1859 95 FIXED SIZE = 

: 1860 96 BRNSC LENGTH + ' record header 

3; 1861 39 + ' structure level 

3 1868 398 824 + ! 8 attribute size/type longwords 

3: 186 399 ' 1. file name (variable) 

3 1864 400 BSASS_STRUCLEV + : ¢: file structure level 

> 1865 401 BSASS_FID ¢ i 3. file ID 

3; 1866 me's BSASS_FILESIZE + ! 4. file size in biocks 

: 1867 340 BSA$S_UIC + ' §. file owner UIC 
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5 
s-11 media ise -1984 00:30:53 VAX-11 Bliss-32 V4.0-742 Pa 5 
IBUTES = format file attribute record 12286821382 99:30:83 DISKSVMSMASTER: CBACKUP.SRCISAVE .832;1 9 18) 
BSASS_FPRO + : g. file protection mask 
BSASS_UCHAR + : - file characteristics 
BSASS_RECATTR; ! 8. record attributes area 


Determine the address and length of the ident area. 


INPUT_IDENT = .INPUT_HDR + .INPUT_HDRCFH2$B_IDOFFSET] © 2; 
IDLEN= (. INPUT_HDRCFH2SB_MPOFFSET] = .INPUT_HDRCFH2$B_IDOFFSETJ) * 2; 


! Determine the length of the attribute record. 


FIXED SIZE + . INPUT _NAMEDESCCDSCSW_LENGTH); 


1 
J INPUT_ADRCFH2$B_STRUCLEV) EQL 2 


£ 
Li = .L1_¢ 485 $ 
BSASS_VERL * 

IF .INPUT_ADRCFH2$B_1 
THEN C1 = .L1 476 

IF IDLEN GEQU SBYTEO 
THEN L1 = .L1 +4 +8 

IF .IDLEN GEQU SBYTEOFFSE 
TH : 


BSA CKLINK + BSASS_RPRO + BSASS_ACLEVEL + 


A 
ASS {WL LAGS; 
FSET] GEQU (S$BYTEOFFSET(FH2SL_HIGHWATER) +4) /2 
ASS_HIGHWATER; 
F12$W REVISION) +2 
$S_REVISION; 
F12$Q_CREDATE) +8 
ATE; 
2$0_REVDATE) +8 
DATE; 
2$0_EXPDATE) +8 


XPDATE; 
2$Q_BAKDATE) +8 
_BARDATE; 


NLT = .L1 + 4 + 
IF .IDLEN GEQU S$BYTEOFFS 
THEN L1 = .L1 + 
IF .IDLEN GEQU SBYTEOFFSE 
THEN L1 = .L1 + 4 + 
IF .IDLEN GEQU SBYTEOFFSE 
THEN L? = .L1 +448 


BEGIN 
L1 = .L1 + 4*4 + BSASS_REVISION + BSASS_CREDATE + BSASS_REVDATE + BSASS_EXPDATE; 


: Determine if the file is a ih ag ad In ODS-1, this is defined as a 
} file “.DIR;1° with fixed Length 16 byte records and no record attributes. 


CHS$F IND_SUB( 
. INPUT _NAMEDESCCDSC$W LENGTH], .INPUT_NAMEDESCCDSCSA_POINTER], 
6, UPLIT BYTE ( Q°0 AN 

. INPUT_RECATTREFATSB_RTYPE) EQL FATSC FIXED AND 

. INPUT-RECATTRCFATS$B_RATTRIB) EQL 0 AND 

 INPUT-RECATTREFATSW_RSIZEJ EQL NMBSC_DIRENTRY 


THEN 
END INPUT_F ILECHARCFCHSV_DIRECTORY] = TRUE; 


BOOTVBN = 0; 
IF .QUALCQUAL_IMAG) 
THEN 
. INPUT_STATBLKCSBKSL_STLBN] NEQ 0 AND 


<v | 


ee 


r 


Ca eet ane eS a ee : a — _— ' y — 
SAVE e Files-11 media 1 0:53 VAX-11 Bliss-32 V4.0-742 | Si 
v04-000 E_ATTRIBUTES = format file attribute record 18-Sep-1946 0: Hy ‘33 DISKSVMSMASTER: cbaceur. SRCISAVE .832;1 page 193 | vi 
; 1925 -FAST_BOOT_LBNC.INPUT_NAMCNAMSB_FID toh NEQ | AND é 
3 19 ~INPUT_ STATBLK( SBKSL “STN LEQO .FAST_BOOT pent INPUT_NAMCNAM$B_FID_RVNJ-1] AND 3 
: i . 7 INPUTS STATBLKCSBKSL-STLBN] + .INPUT_STATBLRESBKSL_FILESIZE] GTRO .FAST_B00T LONE. INPUT _NAMCNAMSB_F I : 
: 1929 NBEGIN : 
; 1950 BOOTVBN = sy BOOT “LBM INPUT_NAMCNAMSB_FID_RVNJ-1)] = .INPUT_STATBLKCSBKSL_STLBN] + 1; : 
3; 1931 Li = .L1 + 4 + BSASS-B OTVBN; 3 
3 19 ; 3 3 
: 19 $ 
3; 19 3 
3 13 5 ~  geomieaeed = FALSE; : 
3; 19 -QUALCQUAL_IMAG] AND + 
; 1938 = INP ut PLATE_LEN NEQ 0 AND 3 
HY 44 ~ L1 + TINPUT “PLACE LEN + 4 LEQU MAX_RECORD : 
3: 1941 BEGIN $ 
: Hb a | L1 = .L1_ + .INPUT_PLACE_LEN + 4; Py 
: 194 PLACEMENT = TRUE; $ 
3: 1944 480 $ F 
3: 1945 481 
3 1946 ret 
3 1947 48 IF .INPUT_NAMCNAMSW_DID_NUM] NEQ 0 
: 1948 484 THEN 
: 1949 485 L1 = .L1 + 3*4 + BSASS_DIR_UIC + BSASS_DIR_FPRO + BSAS$S_DIR_VERLIM; 

3 1951 38? 

3 1932 488 2 IF .DIR_STATUS NEQ 0 

3; 195 489 THEN 

3 1954 490 L1 = .L1 + 4 + BSASS_DIR_STATUS; 

3; 1955 3491 

3 1398 3036 

; 195 49 SAVE_ACL ak ~ SAVE_ACL_EXT = FALSE; 

3; 1958 494 IF .ACL_CENG ere .. 

3; 1959 495 AND NOT’. BUAL CoG TE) ! Ignore ACL's if /INTERCHANGE 
: 1960 3496 AND INPUT VADREFHSSB. SFRUCLEV) EQL 2 ! Only for ODS-2 files 
; 1961 497 THEN 

; 13e8 498 BEGIN 

3 196 3499 IF .L1 + 4 + .ACL_LENGTH LEQU MAX_RECORD 

3 1964 500 THEN 

3: 1965 501 4 BEGIN 

3: 1966 206 4 1 = .L1 + 4 + .ACL_LENGTH; 

3 1967 503 4 SAVE_ACL_PRI = TRUE? 

3: 1968 504 4 E 

3 128? 505 ELSE SAVE_ACL_EXT = TRUE; 

; 1970 506 END; 

3; 1971 507 

; iors 508 

3 1OT7 293 Allocate the attribute record and initialize the record header. 
3: 1975 511 L2 = (.L1 + 15) AND NOT 15; 

3 1or8 21¢ P= MAKE SPACE(. 

> 197 51 PCBRHSW.RSIZE) = <2 - BRHSC_LENGTH; 

: 1978 514 P ce = RHSK_ FILE;~ 

; 1979 515 PLBRHSL_ FLAGS) = 

; 1980 218 If .INPOT_FILECHAR iF CHSV. DIRECTORY] THEN PCBRHSV_DIRECTORY) = TRUE; 
; 1981 351 PCBRHSL _ABD DRESS) = 0; 


—-—_——__ - - --——--—-- ——- ————— rs eee 


Save Files-11 media 1h-s2 $ep-1984 00:30:53  VAX=11 $-32 V4.0-742 e 67 | 
v04=000 FILE_ATTRIBUTES = format file attribute record 12-8 08-1 9be 90:30:37 DISK$V nen TER: (BACKUP. SRCISAVE.B32;1 (29 3} 

198 1 SASSUME (SBYTEOFFSET (BRUSW_BLOCKFLAGS) + 4, EQL, BRHSK LENGTH); 
1388 a3 3k PLORN HS -BL0 OCKFLAGSI)<O,5 B5y.8 6 
1986 ; ; STORE 2, BONER WLEVEL'); | 
198 

128 2 ¢ Store attributes. 

1990 5 6 Ary. "FILENAME', . INPUT_NAMEDESCCDSC Sw ebENGTHI. . INPUT _NAMEDESCCDSCS$A_POINTER)); 

1991 5 TI(*STRUCLEV" , sINPUTE HORCFH2$W_STRUC 

199¢ 528 ATITC PID! T_RAMCNAMSW_FIDJ); 

199 2 9 SCAT aa “INPUT TSTATBLELSBESL _FILESIZE)); 

1994 0 2 ATT“("UIC NER); 

1995 531 2 ATV ('RECATIR Ass. “REEATTR, INPUT_RECATTR); 

1996 5 é IF [INPUT HDRCEH2SB._ STRUCLEY “EQL 2 

1997 7 THEN 

1998 534 BEGIN 

1999 535 ATT (*BACKLINK®, INPUT_HORCFH2$W_BACKLINK]); 

2000 336 ATT-(*FPRO’, IN TH DRCFH2SQ_FILEPROTJS; 

001 353 ATT~(*RPRO® . INPUTHDRCF HOSW-RECPROTI); 

g00¢ 238 ATT-C*ACLEVEL', - INPUT~HDRCFHOSB_ACC MODES; 

00 539 ATT_("UCHA INPUT" HDRCFH2SL_FILECHAR)); 

004 540 RTTTCSVERUIMET® DIR VER MIT); 

005 541 ATT~(" JNL LAGS NPOY RCFH2$W_ JOURNAL) 

006 348 : If INPUT “tbr FHOSB_ ibOFFSETD GEQU (SBYTEOF FSET (FH2SL _HIGHWATER) #4) /2 
$008 3544 3 ATT_("HIGHWATER', .INPUT_HDRCFH2$L_HIGHWATER)); 
2009 3545 3 IF, JDLEN GEQU SBYTEOFF SET CF Ios _REVISTON) +2 
2011 3208 3 ATT_("REVISION',.INPUT_IDENTCF12$W_REVISION)); 
012 3548 IF .IDLEN GEQU $BYTEOFFSETTFI2$Q_CREDATE) +8 
201 3549 THEN 

014 550 ATT ("CREDATE', INPUT_CREDATE 
2015 3351 IF NOLEN GEQU SBYTEOFFSET <FI2$a EREVDATE) +8 
2016 558 THEN 

01 355 ATT_("REVDATE', INPUT_REVDATE); 
2018 3554 IF .IDLEN GEQU SBYTEOFFSET(F12$Q_EXPDATE) +8 
3019 3555 THEN 

020 3556 ATT_("EXPDATE', INPUT_EXPDATE); 

021 3357 IF .IDLEN GEQU SBYTEOFFSET(FI2$Q_BAKDATE)+8 

02 558 thew 
202 3359 IF .QUALCQUAL_RECO) 

024 360 THEN 

35 61 4 ATT_("BAKDATE', JPI_DATE) 

0 6 36¢ ELSE 

02 56 ATT_("BAKDATE*, INPUT_BAKDATE); 

028 564 END 

029 565 2 ELSE 
0 66 BEGIN 
031 56 ATT_(*FPRO® . INPUT_HORCFH1$W_FILEPROT)); 
03¢ 568 ATT~(*UCHAR * INPUT ~F LECHAR AND NOT FCHSM_DIRECTORY); 

03 569 ATT~(*REVISION®, UT_TDENTCFI1$W_REVISIONJ);~ 

034 570 ATT~(*CREDATE', MPUT_CREDATE); 

035 571 ATT" ("RE UTREVDATE): 

036 378 ATT (*EXPDATE'. NPUT“EXPDATE); 

037 57 END? 

038 574 
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media 16-Sep-1984 00:30: VAX-11 Bliss-32 V4.0-742 Pa 
BUTES = format file attribute record 1o=808-1382 90: 30:33 DISKSVMSMASTER: CBACKUP.SRCIJSAVE .832;1 ge 488 


s 
Sg 


if -BOOTVBN NEQ 0 
ATT_("BOOTVBN’, .BOOTVBN) ; 


IF_ .PLACEMENT 
THEN 


EGIN 
STORE_(2, .INPUT_PLACE LEN); 
STORE-(2, BSASK_PLACEMENT); 
DUMP_PLC_DATA(.P); 

P = [P +”. INPUT_PLACE_LEN; 


VFWN—"OOONOu Mme 


sooo 


IF _.INPUT_NAMCNAMSW_DID_NUM] NEQ 0 
THEN 


RAARRPRRAR EERE E RE REE 
ODNAANE WN OOBNAUEWN HO 


VUPWwnN— 


C*, .DIR_SP 
RO" DIRS 


LIM’, .DIR 


END: 
IF .DIR_STATUS NEQ 0 
THEN 
ATT_("DIR_STATUS", .DIR_STATUS); 


ul 
FP 
VE 


' wre 
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SEFEZES 
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04 
3008 IF .SAVE_ACL_PRI 
3607 ATV_ ("ACLSEGMENT', .ACL_LENGTH, .ACL_BUFFER); 
609 
i } Pad the primary file attribute record with zeros. 
361 CHSFILL(O, .L2 - .L1, .P); 
61 
i : If the ACL should be saved in a file attribute extension record, do it now. 
1 if .SAVE_ACL_EXT 
61 THEN 
1 BEG! 


$C_LENGTH; 

B_ACL; 

B-ACLS; 

POT_NAMCNAMSW_FID_NUM]; 

PUT-NAMCNAMSW_FID-SEQ); 

. INPUT“NAMCNAMSW_F ID"RVNJ; 

: Allocate a buffer to be used in building the extension record. 
ACL_BUFFER = GET_VM (MAX_RECORD); 


! Now loop, getting the file's entire ACL. (This is a loop, because the 


po 


18-sep-19 


IF P ctau tae 
END; 
Allocate room in the output buffer. 

= wR LENGTH : 2 + .ACL_SEGMENT_SIZE; 


7-15) AND NOT 15; ~ 


' 
i 
U1 
L2 
P = MAKE. ~SPACE Paes ys 


Fill in the extension record 
i u=RTVPe) = .L2 = BRHSC_LENGTH; 
RTYP 
$$) 
EOF 


E 
PCBRHSL_F 
“ADDRE 
SASSUME™ (S$BYT 


= ne. FILE_EXT; 


SAVE Save Files-11 med media $4 00: 30:5 VAX-11 Blis $732 V 4.0°742 
v04-000 FILE_ATTRIBUTES = format file attribute record 122806 8d DISKSVMSMASTER: (BACKUP, SRCISAVE .832; Y 
3 ' file's ACL is unbounded.) 

: 03e Gy 

3 4 4 WHILE 1 

3 5 dO 

: 2100 $ 4 BEGIN 

3 2101 4 CHSFILL (0, MAX_RECORD acl eRURFERD: 

: 198 8 4 ATR_DESCLO.0.16,0) = ATRSS 

: 21 4 ATR-DESC[2,0,16,0] = AT RES spevie 

+ 2106 0 4 ATR-DESCL4, 3 ,0J = ,ACL_BUFFER; 

# 105 1 4 ATR-DESCL8,0,32,0) = 0; 

: 199 Pp i 4 STATUS = $Q]0W (CHAN = .INPUT_CHAN, ' Read the file's ACL 
: 2108 Pp 4 & FUNC = 10$_ACTESS, 

: 2109 Pp § 4 10SB = I0SB 

: 2110 P 6 4 P! = FIB_DESC 

> 2111 4 PS = ATRIDESCS: 

: 11¢ 8 4 If .STATUS THEN STATUS =~. 10SBL0 

: 211 4 IF .STATUS THEN STATUS = .FIB_ACLCFIBSL_ACL_STATUS) 
: 2114 650 4 IF NOT .STATUS 

: 2115 651 4 THEN 

3 2116 63¢ 5 BEGIN 

: 2117 53 5 IF .STATUS NEQ SS$_ACLEMPTY 

: 2118 654 AND - STATUS NEQ SS$_NOMOREACE 

: 2119 55 THEN FILE ERROR ( 

: 2120 636 CK KUPS READERR + STS$K_WARNING, 

3 sisi 5 » T FAB, 

s 21 § 58 2 “AT Vis). 

3 2l2 59 FREE_VM (MAX_RECORD, .ACL_BUFFER); 

3 2124 660 5 RETURN; 

: 2125 661 4 END; 

: 21 $ 662 4 

5 158 2 i Now determine the end of the current ACL segment. 
: 129 4 = .ACL BUFFER: 

; 2130 4 ACL L PSEGHENT 0; 

+ 2131 4 UNTT ACES" x EQL 0 

: 13¢ 4 DO 

3 2135 ; BEGIN 

3 2134 ACL ~SEGHENT SIZE = sisthe SEGMENT_SIZE + .PCACESB_SIZE); 
> 2135 3 P= ACE$B_SIZE 

3 138 ? L_BOFFER + MAX_RECORD THEN EXITLOOP; 
: 21 4 

: $139 ‘ 

3; 2140 4 

a. 

3: 21 : 6 

: 2146 4 

3g 

ae 

; 21 g 4 

; 2150 4 

3; 2151 4 

: 2152 4 


WINE ELLE ES 


SPrsey (BRHSW_BLOCKFLAGS) * 4, EQL, BRHSK_LENGTH); 


949) 


| 
H § 
| SAVE Save Files-11 media 16-Sep-19 :30:53 VAX-11 Bliss-32 V4.0-742 e 70 S 
/V04=000 PILE_ATIRIGUTES = format file attribute record 1e-Sep-1986 11:56:01 DI SKSVMSMASTERSCBACKUP. SRCISAVE .B32; 1-9 (19) v 
: 2153 9 4 (PCBRHSW_BLOCKFLAGS))<0,32> = 0; : 
E 154 HH} 4 P= .P eit LENGTH; : 
: 2155 91 4 STORE. (2, BBHSK LEVEL1); ; 
; 21 § 35 4 ATV. T*ACLSEGMENT’, .ACL_SEGMENT_SIZE, .ACL_BUFFER); : 
3 : 693 4 CHSFILL (0, .L2 = .Li, .P); : 
: 21 § 695 FREE_VM (.ACL_LENGTH, .ACL_BUFFER); : 
: 2160 096 END; $ 
i 161 9 END; : 
31 38 S52 49 44 2€ OO9FF P.AAB: .ASCII \.DIR;1\ : ; 
OFFC 00000 FILE_ATTRIBUTES: F 
. WORD Save R2,R3,R4,R5,R6,R7,RB,RI,RI0,R11 : 3348 ; 
SE 90 AE 9E 00002 MOVAB =112(SP5, §P : | ; 
SA 04 AC dO 00006 MOVL _‘ INPUT_HOR, R10 + 3411 F 
58 6A 9A OOO00A MOVZBL (R10)~ R11 : ; 
6A4B HY 00000 PUSHAW (R10)ER11) : : 
50 01 AA 90010 MOVZBL 1(R10), RO t 3412 : 
50 58 ce 00014 UBL2 R11, RO : F 
7E 50 01 00017 SHL #1, RO, IDLEN : : 
56 00000000" EF 3C¢ 0001B MOVZ2WL INPUT NAMEDESC, L1 + 3417 : 
56 68 A6 YE 00022 OVAB 104(R8), L1 3 3 
7E D4 00026 CLRL (SP) > 3418. 3 
02 07 AA 91 00028 MPB =7(R10), #2 ; | ; 
3c «612 0002C BNEQ 6$ : | : 
E 06 0002€ INCL (SP) ; : 
56 1 C0 00030 ADDL2 #33, L1 + 3422) : 
28 i 91 00033 CMPB.)séR11, #40 : 3423 : 
03 1F 000 BLSSU. ‘18 : : 
56 08 CO 990 ADDL2 #8, L1 > 3424, : 
16 06 AE O01 6 038 1$: CMPL IDLEN, #22 : 3425. : 
03 1F 0003F BLSS $ : | : 
56 06 CO 00041 ADDL2 #6, L1 ; 3426 : 
iE 04 AE D1 00044 28 CMPL JDLEN, #30 : 3427 | F 
03 iF 90048 BLSS $ F : 
56 OC CO O004A ADDL2 = #12, L1 > 3428 : 
26 04 AE D1 00040 38: CMPL = IDLEN, #38 : 3429) : 
03 1f 00051 BLSS ; : 
56 0c co 99 3 ADDL2 #12, L1 : 34 0 : 
2€ 04 AE D1 00056 48: CMPL DLEN, #46 : 3431. 3 
0 1F 0005A BLSS : | : 
6 C co 0005¢ ADDL2 = #12, LT : 3432 : 
B 04 AE D1 0005F Ss: CMPL DLEN, #54 : 3433 : 
41 1 0063 BLSS : : 
56 C CO 0006 ADDL2 #12, L1 > 3434) : 
C 11 00068 BRB : 3418. : 
56 A c0 006A 6$: ADDL2 #42, L1 > 3438. : 
00000000" FF 00000000° EF 89 «AF 6 006D MATCHC #6, P.AAB, INPUT_NAMEDESC, - : 3447 : 
g]NPUT NAREDESC +S ; : 
3 13 00078 BEQL 3 3 
33 6 10 0007D MOVL #6, RS : : 
3 6 C2 00080 7$: SUBL2 #6, R 3 3 


BES ES OE SS AE ae Be Ne, 


5 
SAVE Save Files-11 media rbese =1984 0:53 VAX-11 $-32 V4.0-742 71 
aes FILE ATTRIBUTES - format file attribute record 12-308713 4 90: Hy ‘33 DISK$V nen TER: CBACKUP. SRCJSAVE .832; 4 9° 19) 
21 1 BEQL 8$ 3 
| 01 00000000° Fe ? 88 ; cHPB INPUT _RECATTR, rT + 3448 
00000000' FF bf O08e iste NPUT_RECATTR#1 + 3449 
| 10 00000000' F & 9096 cMPu NPUT_RECATTR42, #16 : 3450. 
00000000" eF 4 a8 009F BIiSsB2 # 2 INPUT_F ILECHAR+1 t 3452 
D4 OOAG 8$: CLRL soBs : 3456. 
7F 00000000' Ef 03 E1 000 BBC #3, QUAL+10, 9$ : 3457, 
1 00000000° : bg 9080 MOVL § INPUT_STATBLK, R1 : 3460. 
6 1 0008 BEQL «693. : | 
50 00000000" EF p6 0089 MOVL INPUT NAM, RO + 3461 
50 AO 9A 900¢0 MOVZBL 40( R : 
50 00000000'FF40 DE 00C4 MOVAL aFAs 609! LBNCROJ, RO : 
FFFFFFFE © 8F FC A0 Di Sapoe CPL 4(ROY, #-T : | 
50 00000000" EF D0 00006 MOVL INPUT NAM, RO + 3462) 
50 28 Ag 9A 000DD MOVZBL 40 R ; | 
a 30 00000000'F Fat DE OE? MOVAL aF AST BOOT _ LBNCROJ, RO F 
40 1A GOED BGTR r ; | 
ce 2) pooopo00" EF 60 Sour? MOVE. INPUTNAML RO’ ne RA ame, 
50 AO 9A OOOFE MOVZBL 40(ROJ, R : 
¥ 30 000000 O°FF4O DE 00102 MOVAL aF AST -80 600T _LBNCROI, RO : 
1F 1B 0010E BLEQU ; 
50 00000000' EF D0 00110 MOVL INPUT NAM, RO + 3466 
‘ 28 AO 9A 00117 MOVZBL 40 R : 
ai * 30 00000000" FF 40 DE 00118 MOVAL aFAsT z800T_t8 LBNCROJ, RO : 
57 01 AO 3 00128 MOVAB hom Goo tven ; 
56 08 C 091 C ADDL2 + 3467 
OC AE 04 OO12F 9$: CLRL PLACER : 3471 
2D 00000000" EF E1 00132 BBC SUALs10, 10$ : 3473, 
00000000" EF 83 00134 ist INBUT -PLACE_LEN 3 3474, 
50 00000090" noks 3 O0148 MOVZUL tats PLACE abEN- RO 3475 
cancetesangel oid 70 3a oO1Ss ce rku "nebea ; 
50 00000000" EF 3c 8018? MOVZWL 108 PLACE_LEN, RO : 3478 | 
56 04 A046 4 015 MOV 4(RO)EL1), C1 : 
Oc «AE 01 D O13 MOVL #1, PLACEMENT : 3479 
50 00000000" 44 p O167 10$: mOvL INPUT NAR, ; 3483 
03 1 oir BEQL if : | 
56 14 § 173 ADDL2 #20, L1 : 3485. 
00000000' i ate 118: IST6 > rs ; 3488 
56 ; ¢ 17£ ADDL2 #5, L1 : 3490 
10 AE 7C ot 112$:  CLRQ SAVE ACL_EXT : 349 
50 00000000' i if 4 HOVE ACL | CENGTH, RO ; 3494 
1E 00000000" €F 1 €0 001 BBS #1, QUAL#14, 14% > 3495. 
18 6— €9 001 4 BLBC (SP), 14$ : 3496 


SAVE Save Files-11 media 
legion PILE _ATiRiautes - format file attribute 
0 04 A046 
00000800 iF 23 
56 0 
14 AE ! 
a 
58 25 of 
F509 F 9 
9 0 
69 8 8 
02 a9 0 
04 Ag 
04 00000000° EF 05 
06 Ag 02 
08 aA9 
59 10 
89 0101 + 8F 
S 00000000" of 
69 00000000 cf 00000000' EF 
89 00280002 = 8F 
9 AA 
89 002C0006 = BF 
50 00000000" EF 
89 $3 AO 
89 8 a0 
89 435 444 8F 
89 00000000° EF 
89 002F0004 F 
89 894 444 F 
89 0034002 F 
69 00000000' A 0 
9 3 
03 6E 
OOF4 
89 ead | 8F 
89 4 AA 
89 46 AA 
89 0030000 8F 
+ AA 
9 003100 8F 
9 AA 
83 00320001 or 
9 00330004 8F 
; 9 4 AA 
9 0048000 8F 
89 00000000" EF 
3 0050000 F 
9 4 AA 
28 58 


89 004F0004 


er 


ON Poonam 


record 1 
9 198 
? 19D 

A OO1A4 
i) 1% 
i) 1A 
1 1AD 
0 1AF 

E 183 
CB 0018 
DD 00188 
FB 0018 
D git 
A 1¢ 
BO 001C9 
04 001CD 

1 00100 

8 00108 

3 0010C¢ 
CO 001DF 
80 Rares 
B0 Oat 
BO OO1EE 
28 OO1F1 
DO OO1FD 
DO 00200 
BO 00207 
DO 0020 
DO 0021 
00 0021 
BO 00 19 
DO 0022 
DO 00228 
dO B05 F 
dO 8s 
DO 00230 
28 00244 
DO 0024C 
A 0024F 

1 00 28 
DO 0025 
DO 00 f 

BO 0026 
DO 00264 
4 
e 
BO 0037 
90 3 
b0 
3 tas 
BO 00997 
dO 9 
+ A 

1 A 
Ff A 
dO A 


Morwoum 
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w$ep-1986 11:54:01 


=—dad 
A 
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15$: 


168: 


VAX-11 BLliss-32 
4(RO)(L1], RO 

R9 Ae 

13§ 

Ry. L1 

#1, SAVE_ACL_PRI 

#1, SAVE_ACL_EXT 
15(R6), RO” 
wis, Rb, L2 
#1, MAKE_SPACE 
RO, P 


#16, (P) 
#3 kes 
P) 


#5, INPUT_FILECHAR+1, 15$ 
#2. 4(P) 
8B) 


#257, (P)+ 
INPUT NAMEDESC, (P)+ 


y 0, (P)+ 
INPUT STATBLK+4, (P)+ 
#3080796, (P)+ 
INPUT _FILEOWNER, (P)+ 
#34 7904, (P)+ 
#32, INPUT_RECATTR, (P) 
R3, P 

16$ 


oa 


-_ oOo 
. 
a” 


ae 
. 
Se te: Pte Pte Poe Pee ies Pd 


ao 
. 
~~ v0=0~U~U~ U~U~~ Jv 
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as 
oa 
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a 
. 
~~ a 
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~~ 


7348, (P)+ 


V4.0-742 Pa 
DISKSVMSMASTER: CBACKUP. SRCIJSAVE .832; 1 


#42, 
INPUT_NAMEDESC, @INPUT_NAMEDESC+4, (P) 


ge 
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72 
(19) 
3499 


MRM — 


mod 


Kk 5 
SAVE Save Files-11 media 16-Sep-1984 00:30:53 VAX-11 Bliss-32 V4.0-742 Page 73 $s 
¥06 PILE_ATTRIBUTES = format file attribute record 12-80 8= 1382 90: 30:33 DISKSVMSMASTER: CBACKUP. SRCISAVE.B32:1." (19) \ 
9 4C AA DO 0028 MOVL 76(R10), (P)+ : : 
° 06 AE O01 83 17$: = CMPL EN, #22 + 3545 ; 
F 1 O02BD BLSSU : : 
89 00350002 8F 00 BF MOVL #3473410, (P)+ + 3547 ; 
50 08 ar 4 ¢ C6 ADDL3 # 0 INPUT_IDENT, RO : F 
8 60 80 CB MOVW ROS, (P)+ : : 
1E 04 AE D1 : cE 18$: CHL iss #30 ; 3548 ; 
89 00360008 &F po 0 D4 0 #3538952, (P)+ + 3550 ; 
89 00000000" EF 7D DB mova INPUT _CREDATE, (P)+ : | ; 
26 4 Ae sh 0 ; 19%: gs BEEN, #38 : 3551. : 
89 00370008 gt 00 Sseg MO #3604488, (P)+ + 3553 ; 
89 00000000" EF 7D OO2EF MOVG INPUT_REVDATE, (P)+ : | F 
2E 04 AE pI 0 F6 208: CHL DLEN, #46 ; 3554 ; 
89 00380008 8F bo 0 FC OVL #3670024, (P)+ + 3556 : 
89 00000000" EF 7D 0030 MOVG §INPUT_EXPDATE, (P)+ : F 
6 04 AE D1 0 OA 218: CPL DLEN, #54 ; 3557 : 
0097 31 O16 BRW 6$ : : 
17 00000000° ce 06 E1 00313 22$: BBC 6 QUAL+12, 23S : 3559) ; 
9 00390008 8F DO 0031 MOVL #3735560, (P)+ : 3561, ; 
89 00000000" EF DO 003 5 MOVL § JPI_DATE. (P)+ ; ; 
69 00000000 EE D0 00 25 MOVL JPI-DATE+4, (P) ; | 3 
89 00390008 8F DO 00332 23$:  MOVL #3735560, (P)+ + 3563 : 
89 00000000" EF DO 00339 MOVL § INPUT_BAKDATE, (P)+ : : 
69 00000000° EF b0 aos MOVL NPUT_BAKDATE +4, (P) : 
$5 00500007 an Bh OOSSO OMG TOCRT ON ne 3567) 
89 00330006 BF BO bosse MOVL #3342346, (P)+ > 3568 | ; 
0 onoonmey OP RSS GBS MP FAL fi ttc. ors ae) 
50 08 AE OA Ci 00366 ADDLS #10. INPUT IDENT, RO : | ; 
89 00360008 8F pO 0376 MOVL £323g055 (P)+ > 3570. : 
89 9900000" F 7D 00370 MOVG —s INPUT CREDATE. (P)+ F | : 
89 00 000 F 20 0384 MOVL #3604288, (P)+ : 3571) F 
89 9000000" F 0 MOVO INPUT _REVDATE, (P)+ ; : 
89 00 0008 F p00 0039 MOVL #36700 + : 3572) : 
89 00000000' EF 00 00 MOVL INPUT_EXPDATE, (P)+ ; : 
69 00000000' i} D 9 AQ * MOVE, INPUT“EXPDATE+4, (P) ; 
7 p 9 AA 3 st TVBN : 3576. 
89 00450004 rf D A MOVL #4521988, (P)+ : 3578. ‘ 
89 7, 3 e5 MOVL BOOTVBN, (P)+ 3 ; 
iC C AE E 278 BLBC PLACEMENT, 28% ; 3581. 
89 00000000" EF 80 0 B MOVW § INPUT_PLACE_LEN, (P)+ : 3584. ‘ 
89 46 «8F 98 cs MOVZBW #70, TP)+ : 3585 ‘ 
FBFE CF 7 OD bose CALS #1, DUMP_PLC_DATA i 
3 00000000' cf i ce HOV ZUL INPUT_PLACE_CEN, RO 3587 
7 00000000' EF D DB 28% INPUT_NAM, R7 > 3591 


—_—-s 


-— 


Save Files-11 media 1b-se -1984 :30:53 VAX-11 Bliss-32 V4.0-742 Pa 74 
LE U - format e attribute recor -Sep- 234: KS$V :LBACKUP. AVE. $ (19) 
FILE_ATTRIBUTES = f fil ib d le-Sep 1382 i 0 33 DISKSVMSMASTER : BACKUP. SRCJSAVE.832:1- 7 (19 
2a «AT DF TSTW = 42(R7) : 
38 ; Ee BEQL $6 : 
9 94700 6 &F D E MOVL #4653060, (P)+ + 3594 
9 000000" EF D E MOVL  DIR_SP, RO : 
AO D F MOVL  60(RO). (P)+ : 
9 004800 BF D f MOVL #4718594, (P)+ : 3595 
9 AO 8B FD MOVW  SB(RO), (P)+ : 
9 004A0 8F 00 00401 MOVL #4849666, (P)+ + 3596 
9 AO 8 408 MOVW 64(RO), (P)+ : 
0 00000000' f cis 298 MOV ZBL piR_STATUS, RO : 3600 
9 00490001 F 41 MOVL 32786129, (P)+ : 3602. 
9 0 41C MOVE RO, (P)+ : | 
1A 146 AE €9 OO41F 30$:  BLBC SAVE_ACL_PRI, 318 ; 3605 
89 00000000' EF 80 423 MOVW ACL _CENGTH, (p)+ + 3607 
89 ae F 5 4A mov ZeW #78, (P)+ : 
69 00000000' rf 00000000' f : abe E move A L_LENGTH, @ACL_BUFFER, (P) : 
50 g 6 cS 0430 31$: SUBL3. Li, L2, RO : 3612 
50 00 6E 09 c O44) movcS #0. (SP), #0, RO, (P) ; 
01 10 AE 8 0447 BLBS SAVE_ACL_EXT, 32$ : 3617. 
60 AE 40 8F 98 00446 32$:  MOVZBW #64, FIB_DESC + 3620) 
64 AE 20 AE 9E 00451 MOVAB FIB_ACL, F1B_DESC+4 : 3621) 
0040 &F 00 bE . 0 2c 0496 MOVCS #0,~(SP5, #0; #64, FIB_ACL + 3622 
34 AE 3 A? DO 0045F MOVL  36(R7), FIB_ACL+4 : 3623) 
8 AE 8 A? 80 0464 MOVW 40.87), FIB-ACL+8 : 3625. 
7E 0800 8F 3C 00469 MOVZ2WL #2048, -(SPY : 36 
000000006 00 gi FB O46E CALLS #1, GET_ : 
00000000' EF 0 09 0047 RO, ACL~BUFFER ; 
B 00000000' FF p are MOVL ACL BUFFER, R11 : 3637 
0800 8F 00 6E 00 C 0488 33$:  MOVCS #0,~(SP), #0, #2048, (R11) : 
68 AE 00250200 8F 00 004 MOVL #2425344, ATR_DESC : 3638 | 
6C AE B 00 049 MOVL R11, ATR._DESC?4 : 3640 
70 AE D4 ' 49 CLRL ATR DESC#8 : 3641 
7E p4 049A CLRL = = (SP) + 3647 
6C AE OF 0049C PUSHAB ATR_DESC ; 
7E 7C 0049F CLRQ 0s = ( SP) ; 
7E 04 004A1 CLRL = = (SP) : 
74 AE 99F 004A3 PUSHAB FIB_DESC : 
7E 7C Ang cLRQ =(S ; 
38 AE 9F 004 PUSHAB 10SB : 
32 DD 004AB PUSHL #50 : 
00000000' EF DD 004A PUSHL INPUT_CHAN ; 
E D4 0048 CLRL. = (SP) ; 
000000006 90 C FB 004 CALLS #12, SYS$Q10W F 
A 6 pO 0048C MOVL RO, STATUS ; | 
OE A ; 4BF BLBC STATUS, 34$ + 3648 
A 18 «AE § 4C MOVZ2WL 10SB, STATUS ; 
7 5A €9 004C BLBC STATUS, 34$ ; 3649 
A 54 AE DO 004C MOVL FIB_ACL*52, STATUS 3 
4 A £8 004CD BLBS STATUS, § : 365 
00000900 =: BF A b 400 34$: CMPL TATUS, #2512 > 365 
1E 13 0040 BEQL 5$ ; 


! 


<a 


pe 


| SAVE Save Ff 
v04-000 FILE_A 


; Routine Size: 


it 
TT 


1406 bytes, 


a 5 
es-11 media 16-Sep-1984 00:30: VAX-11 Bliss-32 V4.0-742 Pa 
RIBUTES = format file attribute record 1 ~3e0n 138% 90:30:39 DISKSVMSMASTER: CBACKUP. SRCJSAVE.832; 1 
Q00009EO BF A D1 00409 CMPL TATUS, #2528 
32 ts Ae BEQL 38 
SA DD O04E USHL STAT 
90000000" F DD aed USHL INPUT FAB 
00006 8F DD OO4EA PUSHL #BACKOPS_READERR 
000000006 00 3 FB 4F0 CALLS #3, FILE-ERROR 
00000000" F DD O04F7 35$:  PUSHL A 
7E 08 F ¢ af MOV ZUL rg 0% » @(SP) 
59 00000000" EF DO ; 36$:  MOVL ACL_BUFFER, P 
7 04 CLRL act SEGMENT SIZE 
50 00000000" EF 00000800 F § 2 ADDL3 #2028, ACL_BUFFER, RO 
9 37$:  TSTB (P) 
111 0518 BEQL 38$ 
51 $9 9A 00510 MOVZBL (P), R1 
37 1 0 05 9 ADDL 2 R1 ACL SEGMENT SIZE 
1 9 9a 005 MOV BL (PS, R 
59 1 CO 005 $ ADDL2 1, P 
50 9 D1 005 CMPL  P, RO 
EB 1F 0052¢ BLSSU 37S 
56 12 A? 9E 605 E 38$: MOV 18(R7), L1 
50 OF Ab 9E 005 MOV 15(R6), RO 
58 50 oF CB 005 BICL3 #15, RO, L2 
8 DD 0053A PUSHL L2 
F25A CF gi FB 0053¢ CALLS #1, MAKE_SPACE 
59 0 b0 0541 MOVL. RO. P 
89 58 10 A3 00544 SUBW3 «#16, L2, (P)+ 
89 08 80 00948 MOVW #8, (P)+ 
9 7C 00548 CLRQ = (PS + 
9 D4 00540 CLRL 3s CP) + 
89 0101 F BO 0054F MOVW #257, (P)+ 
89 7 80 394 MOVW ACL SEGMENT SIZE, (P)+ 
89 4E 8F 9B 00557 MOVZBW #78, (P)+ 
B 00000000" EF 0 00958 VL_  ACL.BUFFER, R11 
69 6B 7 28 0056 MOVC3 ACL “SEGMENT SIZE, (R11), (PD 
39 3 00 0566 OVL R3,7P 
50 8 6 ¢3 90569 SuBL 3 L1, L2, RO 
00 6E 09 2c 0960 MovCS #0. (SP), #0, RO, (P) 
FFOD 31 §348 Rw 33$ 
000000006 00 02 FB 00576 39%: CALLS #2, FREE_VM 
04 00570 ET 
Routine Base: CODE + OA0S 


ge 


75 
(19) 
3654 


<u | 
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— 


N | | 
SAVE Save Files-11 media 16-Sep-1984 00:30:53 VAX-11 $-32 V4.0-742 76 HN 
v04-000 VOLUME ATTRIBUTES = format volume attribute rec 107890-1 382 99:30:83 DISKS$V meh TER: CBAcKUP. SRCISAVE .832; a * (20) \ 
; 2163 O98 1 ZSBTTL ‘VOLUME_ATTRIBUTES = format volume attribute record’ 
H 198 § } GLOBAL ROUTINE” VOLUME ATTRIBUTES (CINPUT_HOME, INPUT_BOOT, INPUT _5CB, INPUT_MAXFILNUM): NOVALUE= 
sip aM ie 
; 168 7 5 1 FUNCTIONAL DESCRIPTION: 
; 19? f ¢ : } This routine generates a volume attribute record. 
3 2171 706 1 | INPUT PARAMETERS: 
; 176 7 1! INPUT_HOME - Pointer to home block. 
3; 217 708 1! eu “BOOT = Pointer to boot block. 
3 2174 709 1! INPUT SCB = Pointer 9 storage control block. 
3 \t? ay : INPUT “MAXFILNUM = Highest file number in use. 
; 177 re ; IMPLICIT INPUTS: 
> 2179 714 1: 
; i39 af : oe ne 
> 218 717 13 
3 183 718 1°! IMPLICIT OUTPUTS: 
Sigs 430} | -_ 
: 186 721 1 ' ROUTINE VALUE: | 
3; 218 7 ; 1! NONE | 
3; 2188 7 1! 
; 2189 7246 1! SIDE EFFECTS: 
: 2190 725 1! NONE 
3 2191 7 $ 1! 
: $198 Oo Bag 
3 2194 729 2 BEGIN 
3; 2195 730 P 
3 $196 731 INPUT _HOME : REF BBLOCK, ' Pointer to home block 
3; 2197 7 ¢ INPUT~BOOT: REF BBLOCK, ' Pointer to boot block 
3 138 4 Z cy INPUT~SCB: REF BBLOCK; ! Pointer to storage control block 
; 2200 735 BOOT_LENGTH, ! Boot block Lengeh less trailing zeros 
3 $3) 7 § Ll, ! Unrounded length 
; 4 7 Le. ' Rounded lLengt 
: 220 4 : stean REF BBLOCK; ! Pointer to attribute record 
: L 
3 08 740 FIXED SIZE = 
3 06 741 RSC * LENGTH . ' record header 
3; 220 74 i Siructure | evel 
3; 2208 74 Be4 i 18 attribute size/type longwords 
3; 2209 744 BSASS. VOLSTRUCT + i 1. volume structure Level 
3 2210 745 BSASS_VOLNAME + i ¢° volume label 
: 2211 ree BSASS_OWNERNAME + ! 3. volume owner name 
3 \¢ A) BSASS_FORMAT + ! 4. volume file format name 
3: 221 ree BeAse.. OLOWNER + ' §. volume owner U 
3 2214 74 BSASS_PROTECT + ; g. volume protection mask 
: 2215 750 BSASS_FILEPROT + ' 7. volume default file protection 
3 6 751 BSASS_VOLCHAR + ! 8. volume charecter istics bits 
3 221 3 BSASS_VOLDATE + ! 9. volume creat 
; 18 75 BSA$S oi NOOW + ' 10. volume default file window size 
3: 2219 754 BSASS"LRU_LIM ¢ ! 11, volume default directory LRU Limit 
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format volume attribute rec 14-Sep-19 


J ; 1¢- volume default file extension size 
SASS_CLUST ! 13. volume cluster factor 
BSASS_VOLSIZE + ' 14. volume size in blocks 
SASS_MAXFILES + ! 15. volume maximum number of files 
SASS_MAXFILNUM + : 1$- highest file number in use 
BSASS_SERIALNUM + ! 17. yolume serial number 
BSASS_INDEXLBN; ! 18. index file bitmap starting LBN 


a the backup summary record. Determine the length of the attribute 
' record. 
' 


L1 = FIXED S17E: 
If, NPUT ROME HM2$B_STRUCLEV] EQL 2 


BEGIN 
(IF .QUALCQUAL_VOLU] 
THEN .QUALTQUAL VOLU_VALUE] EQL .INPUT_HOMECHM2$W_RVNJ 
ELSE .INPUT_HOMECHM2$W_RVN] LEQU 1) 


EN 
BACKUP_SUMMARY (); 


Ll « 
4 -COM_I_SETCOUNT GTRO 1 THEN L1 = .LT + 4 + BSA$S_RV 


D 
ELSE 
BACKUP_SUMMARY(); 
f the volume is bootable, determine the Length of the boot program with 
railing zero bytes stripped off. 
z,NPUT _BO0TES 0.8.03 EQL 0 
BEGIN 
BOOT_LENGTH = 0; 
gona” FROM 511 TO 0 DO 
IF .INPUT_BOOTC.J,0,8,0] NEQ 0 


THEN 
BEGIN 
BOOT LENGTH = .J + 1; 
EXITCOOP; 


END; 
L1 = .L1 + 4 + .BOOT_LENGTH; 
END 


: Allocate the attribute record and initialize the record header. 


L2 = (.L1 ¢ 15) AND NOT 15; 
P = MAKE SPACE(.L2); 

¥ .L2 = BRHSC_LENGTH; 
P[BRH$W-RTYP RH 


* $K_VOLUME ; 
PCBRHSL-FLAGS 


6 
ia 18-sep-19 : 90: 0:53 VAX-11 Bliss-32 V4.0-742 


4 Page 77 
4:01 DISKSVMSMASTER:CBACKUP.SRCIJSAVE.B32;1 (20) 


= .L1 + 4%4 + BSASS _RECPROT * eens RESFILES + etter + BSA$S_RETAINMAX; 


— 
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78 
v04-000 VOLUME TATIRIBUTES - format volume attribute rec DISK SKSVMGH TER: (BACKUP. SRCISAVE .B32; "29 * (20) 


creas A pre 552 = 0; 
(Pte Ray. oresey: (eRsy6 BLOCKFLAGS) + 4, EQL, BRHSK_LENGTH); 
3” BRH “B10 0; 


GRFLAGSI)< 
LENGTH 
STORE. PO. tt tTEVELI): 


: Store attributes. 
IF INPUT HOME CHM2SB_STRUCLEV3 EQL 2 


ArT. (*VOLNAM T_ROME 


E' 
(* OWNERNAME * , INPUT “HOME LHM2$T ONE RNAMES) : 


BEGIN 
ATT C’VOLSTRUCT", 1 i lei Mere The 
HM 


SAVE Save Files-11 media 16-3 sep p-1986 4 00: 30: 33 VAX-11 Bliss-32_V4.0-742 
nage QOLN 


BEBE ES & FAWN NINN NPIPPINNNINY SS PO OO ee 


; 4 

: at 

; 8 

; 8 § 

; 820 

3 : 

854 

: ; 5 

; 8 § AT = oRORMAT NPUT “HOME CHM2$T~FORMATJ); 

; 828 IF 1_SETCOUNT GTRU 

; 2294 829 THEN 

3 2295 830 art. CRVN' + INPUT _HOME CHM2$W_RVNJ 

; 2296 831 ATT_(*VOLOWNER’, weuT. <none pin moSL =VoLouieR) 

: 297 8 : ATT~(*PROTECT', M2$W_PROT 

; 2298 8 ATT_("FILEPROT', “INDUT= “Hone MoSW_FILE EPROT 

3 2299 834 ATT_("RECPROT', M2$W_RECPROT 

; 835 ATT~("VOLCHAR", “INPUT ata “YOLCHARD 

3 2301 8 $ ATT_("VOLDATE’, input gone wre Q CREDATE)); 
3 $06 8 ATT_(* WINDOW? . AoS8 WINDOW): 

> 230 38 8 ATT~("LRU_LIMS, eur “HORE CHR HM2$B-LRU_LIMJ); 

; 2304 839 ATT_(°EXTEND® . INPUT_HOME CHM2$W_EXTEND)) 

3 2305 3840 ATTI('CLUSTER', ©, INPUT [HOME CHM2$W_CLUSTERJ) 

3 2306 841 ATT_("RESFILES®, - INPUT “HORE HM RESFILESI): 

; 2307 38 é ATT-(*VOLSIZE*, - INPUT-SCB ScBSL VOLSIZE}); 

; 2308 8 ATTIC'MAXFILES', =, INPUT “HOME CHM2SC_MAXFILES)); 

; 309 3844 ATT_("MAXFILNUM’, =. INPUT -MAXFILNUM); 

: 2310 845 ATT~("SERIALNUM’, | .INPUT-HOMECHM2SL_SERIALNUM)); 

3 2311 8 6 ATT-(*INDEXLBN' =, INPUT"HOME CHM2$L~IBMAPLBNJ) ; 

; 312 8 ATT~("RETAINMIN®, INPUT_ROMECHM2$Q_RETAINMIN]); 

; 231 848 ATT~("RETAINMAX', | INPUT~HOMECHM2$Q-RETAINMAX]); 

; 318 B50 3 ELSE. 

ae 0 BB Bat 

; 318 Ba CREDATE: VECTORC2), ! Temp to get creation date 

: 4 Bee Ts i Temp to assemble UIC 

; 321 896 ATT_("VOLSTRUCT", INPUT HOM CHR Si STRUCL yD): 

3 ¢ 85 ATT_(*VOLNAME ' T_ROME CHM1$T_VOLNAME 

: 23 858 ATT~ (*OWNERNAME *, INPUT"H HOME CH Ha St ii -Paeeeie 

3 2326 859 ATT~("FORMAT' TH HORECH 

3 2325 860 T< 0,16> = . (INPUT_HOMECHA1S 

; g 861 1<16,16> = . (INPUT~HOME ttn VOL ONE eB. 

; 86¢ ATT_(*VOLOWNER’, 1); 

3 2328 86 ATT~(*PROTECT' “INbut -HOME CHT Su “PROTECTI?: 

> 2329 864 ATT-("FILEPROT’, = .INPUT-HOMECHM1 $u_ =F ILEPROT I) ; 

: 5 ATT C*VOL-CHAR - INPUT~ HOME LHM2$W VOL CHAR)) 

; 2331 866 FROM ODS1 DATE CINPUT HOMECAMIS$T_CREDATE), CREDATE); 

; $ 6 ATT_T'VOLDATE’, CREDATE); 

3 233 868 ATT~( "WINDOW", . INPUT_HOMECHM1$B_WINDOW)) ; 


0 6 

| SAVE Save Files-11 media 1o~sep~ 138% 90: 30:33 VAX-11 Bliss-32 V4.0-742 Page 79 
VOLUME ATTRIBUTES = format volume attribute rec 14-Sep-1984 11:54:01 DISKSVMSMASTER: CGACKUP.SRCIJSAVE.832;1 (20) 

; 9 ATT_("LRU_LIM', . INPUT_HOMECHM1$B8_LRU_LIM]); 

3 5 676 ATTCEXTEND® . INPUT_HOMELH ISB EXTEND}; 

; 7 ATT~("CLUSTER', PUT-HOME CHM] $W-CLUSTERJ); 

: Hh ATT (*VOLSIZE? ROT(. CC INPU sce 4 + , INPUT_SCBC3,0,8,0] * 4), 16)); 

ae ed ATECRAGINS ae, cIRBUT-RRgE nse ICES 

; 0 Bo ATT~(°SERIALNUM’, + NPUT-HOMEC LING $.° SERIALNUMI) ; 

; 1 are Bre SDRLEN' ROT(. IRPUT_HOMECHAISL_IBMAPLBN], 16)); 

; 7 878 - 

$ 4 87 

3 5 4 9 if s INPUT _BOOTLS 0.8.03 EQL 0 

; ‘3 88 ATV_("BOOTBLOCK', .BOOT_LENGTH, .INPUT_B0OT); 

: 2349 884 

3 50 885 ! Pad the record with zeros. 

3 51 886 ! 

; ¢ 2¢ 887 CHSFILL(O, .L2 = .L1, .P); 

; 235 888 1 END; 


OFFC 00000 -ENTRY 
58 00000000" EF 2g 0000 MOVAB 
5E 08 C2 0000 SUBL2 
56 AC 8F 9A 0000C MOVZBL 
54 04 AC 00 00010 VL 
59 D4 00014 CLRL 
02 OD A4& 91 00016 CMPB 
A 12 QOO1A BNEQ 
9 06 0001C INCL 
oc 90 AB €E9 Bp635 BLBC 
50 Di «AB 9A 000 MOVZBL 
26 AG 50 B81 00026 CMPW 
OD 12 308 A BNEQ 
06 11 0002C BRB 
01 26 «=6A4 «Bl 000 5 1$: CMPW 
05 1A 000 BGTR 
FSOC OCF 00 FB 000 gs: CALL 
56 ra) 9 4 9 3$: ADDL 
01 6B 91 0005C CMPB 
OA 18 4 F BLEQ 
56 06 CO 00041 ADDL 
05 11 00044 BRB 
FFA CCE 00 fe 0046 4$: CALLS 
58 08 AC D0 00048 5$: MOVL 
: 5A ry O04F LRL 
05 Ag 3 0051 STB 
1C 12 00054 BNEQ 
A 06 it INCL 
2 04 0005 CLRL 
50 O1FF F f OOSA MOVZWL 
6048 OOSF 6$: TSTB 


VOLUME_ATTRIBUTES, Save R2,R3,R4,R5,R6,R7,- 
R8,R9,R10,R11 

COM_I .SETCOUNT, R11 
#i?2, 11 

INPUT HOME , R4 
13(R4), #2 

43 

R9 

QUAL+14, 1$ 
QUAL+79, RO 

RO, 38(R4) 

3$ 

$ 

B(R4), #1 

H BACKUP_ SUMMARY 
COM_1_SETCOUNT, rT 
#6, 11 


#0, BACKUP_SUMMARY 
INPUT BOOT: RB 


R 
5(R8) 
9s 
ear LENGTH 
rites 

(J) CRB 
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6 
| SAVE Save Files-11 media 1hese -1984 :30:53 VAX-11 Bliss-32 V4.0-74 P 
_V04=000 VOLUME_ATTRIBUTES = format volume attribute rec 12-808- 198 90:30:33 DIEKSVMGHASTERSLUACKUP ERCISAVE 8325129" (26s 
| 06 13 0006 Bea, «7S , 
52 01 i 9 ROVAB RO), BOOT_LENGTH : 797 
F2 g F4 0006A 7$: SOBGEQ J, 6$ : 379 
T4 04 A246 9E $ gs: MOVAB 4(BOOT_LENGTH)CL1J, L1 : 3801 
20 F AG 9E 0 $: MOV 15(R6)~ RO : 3807 
57 fF CB 0007 BICL3 #15, RO, L2 : 
7 DD OOO7A PUSHL L2 : 3808 
FI9C OCF o1 F o07¢ CALLS #1, MAKE_SPACE : 
3 0 D og MOVL. RO. P : 
83 7 10 A3 000 SUBW3 = #16, L2, (P)+ + 3809 
83 ¢ 80 8 MOVW #2, (P)+ ; 3810 
¢ CLRO (PS+ + 3811 
3 D4 000 CLRL 3s. (P+ : 3814 
83 0101 8 BO 0008 MOVW #257, (P)+ : 3816 
0C AC DO 00094 MOVL § INPUT_SCB, RS : 3842 
03 59 58 00098 BLS R9, 108 + 3845 
o11c 31 00098 BRW 12$ : 
83 00140002 8F 00 0009E 10s MOVL #1310722, (P)+ > 3824 
e 0C Ad BO O00A MOVW 12(R4), (P)+ : 
83 0015000C &F bo 00A9 MOVL #1376268, (P)+ + 3825 
83 01 C4 7D 00080 MOVO 472 (RA), (P)+ : 
83 0160 ¢& DO 00085 MOVL  4B80(R4). (P)+ : 
83 0016000C 8F 00 OOOBA MOVL #1441804, (P)+ + 3826 
83 O1E6 C& 7D 000C1 MOVG 484(R4), (P)+ : 
83 Ore C4 DO 000C6 MOVL 492(R4) (P)+ : 
83 0017000C 8F DO 000CB MOVL #1507346, (P)+ : 3827 
83 O1FO C& 7D 000D MOVG  496(R4), (P)+ : 
83 01F8 C4 00 8008 MOVL 504(R4), (P)+ : 
01 68 91 000DC CMPB  COM_I_SETCOUNT, #1 : 3828 
0B 18 O00DF BLEQU§ 11$ : 
83 00180002 8F DO 000E1 MOVL #1572866, (P)+ + 3830 
83 26 A& BO OOOES MOVW 38(R4), (P)+ : 
83 00190004 8F 00 OOdE¢ 11$:  MOVL #1638464, (P)+ : 3831 
83 2¢ Aa DO OOOF MOVL  44(R4), (P)+ F 
83 0010092 8F DO 000F7 MOVL #1703988, (P)+ : 3832 
83 4 A& BO OO0FE MOVW  52(R4), (P)+ : 
83 00180002 8F D0 9019 MOVL #1769494, (P)+ : 3833 
83 6 A& BO 00109 MOVW  54(R4), (P)+ : 
83 001C0002 8F DO 0010D MOVL #1835010, (P)+ > 3834 
83 38 aa BO 00114 MOVW  56(R4), (P)+ : 
83 001p0002  8F «O«éDO 00118 MOVL #1900546, (P)+ : 3835 
2A «AG BO O011F MOVW 42(R4), (P)+ : 
00160098 8F 00 91 3 MOVL #1966088, (P)+ : 3836 
C A& 7D OO12A MOVO  60(R4), (P)+ : 
001F0001 = BF 0 4 ; MOVL #2031617, (P)+ : 3837 
44 A& 90 001 MOVB 68(R4), (P)+ : 
00200001 8F D0 00139 MOVL #2097153, (P)+ : 3838 
3 45 A& 90 00140 MOVB 69(R4), (P)+ : 
| 3 00210002 8F 00 0144 MOVL #2162690, (P)+ : 3839 
& 46 A BO 00148 MOVW 70(R4), (P)+ ; 
| 83 00220002 8F DO OO14F MOVL #2228206, (P)+ : 3840 
AS BO 0196 MOVW 14(R4), (P)+ : 
002300 8F DO 0015A MOVL #2293762, (P)+ : 3841 
| A4 BO 00161 MOVW 34 (RA) (Pp) ; 
00240004 8F DO 00165 MOVL #2359360, (P)+ > 3842 
8 AS D0 0016C MOVL = 4(R5), (PD : 
| 
| 


"> 


1 
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P 
52:19 (20 


- SRCISAVE 


32 V4.0-742 
: CBACKUP 


IBUTES = format volume attribute rec 


° 11 media 


s- 
TR 


N 
LA 


Save Fi 
VOL 


3843 
3844 
3845 
3846 
3847 
3848 


3856 
3857 


3858 
3859 
86 
86 
3862 
3863 | 
3864 
3865 | 
3866 | 
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wawewOwnwanwnn wenwti iw ow ~~ wR Awe 
a ww tiia aa qo ~tvyer ew YN OU aa @& 
o~ eet 6 we 8 ee ~ +6 = s -—a . ~~ e or Ole 
o wet ~O ww © NM @M@rwers Oss sr © ~- OO 
So ~EOn— FF Hes NW WOR RKO eT Re 8 WOOTM M wT 
Qnst OTOnR AVR ROT TOT IM rom me Tm On nnn 
Wwe -Ocovwowrors OVOeceen er ecevrre2zoamsowow 
MWEuDMO~-oOaoewaeoe —Ggreeyrevwwerwo~rvrdces&e mMwoacwococ 
M00. OOM~O~OrYrY-eaMmr-emVvowrwrNunoyrey~y~ OO hwrh~Ow 
NDA ZOUWNS TF TFOVUNO TM VK OK DO COCO KR RK HEV OK we 
RVVBQ— BT BVEL. BOO Be AT BT TR TNOMM ZB QMamasrw 
Do 
aI I II II IIS) IBIS LO I 0 LINN > a J IB LS US 
ey atetata tata atta tat tatatatatatatatateatetatetak tatatetatatatatss 
SSPeeeeeeeseesaesesrrerererresre—seeeeere 


LrPS33s3- ~2<BeaoLocs OWwwwe ww 


12$: 


PUSHL 


PUSHAB 60(R4) 


~ wooeo.nr- w wm TF Ww 
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oo om wo o o ow 
ao om Mm NM ma ee 
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a bd 9 
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De cem tie ace En ce TE ee Ee Le ee ee 
manaeaetaeaaia@ga aud 
aww nwnwenweew Iw Ow ew 
ow hoe ho Qa A ~~ huh 
ts ~ we wD Ot 
om MM OO OvrOocaco-rvs<cto 
Owe wt Hw CO ~O TEO 
Zoronn—-OnN MM wo HF O&O 
weO Ke TR INITOA On NANO 
OOMEOCoagvusxwnwn Ww7Tru 
OwWowr~ ore -~NEmMaroncwoao 
Ne SUT UOOUNO SNS ew Ze 
BRBVVT BT BTVOVM2Z2 02-2 
zs ~ 
w a oa 3 
4419 YO YO YN 3 IN I IN I 
z*aooooooDoOoODOOODOOS 
SPPSLSSLSLSSSSTSELSSS 


ee 8 OO BERNA SERA DOB 


re tet ttes 
SOO MONI INT TT TUN OO OF-F- iO Oo 


Beno 8 oa 8S SSS es PSPSSSSSPSSSsoames.s 
lQOOOHOlGASr.CAoMaAO Or CGF. OOF. OO Ou COODMOADOODSOu or. ac ar SMOackoancaa 
eu Vu Tu Tu Serre Se SSeS Te Oe ST eT a a a ST a aT NO TU 
aaa 8 BBE E OO SE LOSS Sea 
Oo 

TFLTOVTOTODOODOVT VWOVODOVTVVOOwu w~ wONWTNWE YL DOD Kv wrONeawrnmM wo yoy 
Or Or- OVO OFOUMN COOCQWOWWOUuKEeRK— CO OWONON MM SO ONMONWONCOSO CcOoOo-oSo 
o Oo Oo-co So oO So Oer-Oe- Ore oo sc S& Ss D4 oosoco oo S&S 
o Oo ooo Oo O&O Oo COOOCOOCooO ooo ©& ooo 2& o oOo Oo 
~ oom v & rw eo ~ o < ®@ & woeoeneremnm wv ~ oo Oo 
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s o Oo 2& Oo o Oo Oo So oosoc ©& oo ct coc Sc S& oo S&S 

oo oOo fo O&O o Oo oO o oo co 2& ooocoeoeo ©& o oOo © 


POET © e— OM MIMIMI MI MINIM) 
0.00 00 00 60 G0 60 00 60 60 GOWN e GO. 00 G0 00 GO. GD GD GD 
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50 
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PS ee rere rerererteee PEreTerererelrer ere el ere ST elererer er erererer ere er ee Se eee ee eee a rae eT a Ta ae . 


foes Save Filess -11 media 1-56 $ep-1984 0:53 VAX-11 soak 
| ¥O4=000 VOLUME _ATTRIBUTES = format volume attribute rec 1278687138 99: 3 83 DISKSVM vmeHA ae CBACKUP  SRCISAVE. B32; ? 9 085 
4 MOVL  456(R4), (P)+ P 
| § 00430056 br b0 iS MOVL #4390916, (P)+ : 3876 
63 Ad AA ROTL #16, 2¢R4), (P) : 
4 cb AF 13$:  ADDL2 #4 7, : 3848 
AE B BLBC =-s«aRR 10:14 : 880. 
2 80 0028 MOVW Boct LENGTH, (P)+ : 3882. 
44 BF MOVZBW (P)+ : 
63 g ia 7 tes aa Soot ENGTH, (R8), (P) ~~ 
57 00 6E 69 § ¢ vc f0. (SP), #0, R7, (P) : £ 
04 00269 RET F 


3888 
; Routine Size: 714 bytes, Routine Base: CODE + OF83 
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H 6 
SAVE Save Files-11 media 16-Sep-1984 00:30:53 VAX-11 Bliss-32 V4.0-742 Pa 3 
v04-000 GEN_FID_RECORD = format file ID record 1o-8e8-} 382 90:30:33 DISKSVMSMASTER: (BACKUP. SRCISAVE .832;1 9 8 
3 9 1 ZSBTTL ‘GEN_FID_RECORD - format file ID record’ 
3 | : GLOBAL ROUTINE GEN_FID_RECORD(BUFFER,COUNT,FILE_NUMBER,RVN): NOVALUE= 
; 3% 1 164 
: 95 1! 
: 94 1 ! FUNCTIONAL DESCRIPTION: 
5 95 ; } This routine generates a file ID record. 
5 38 1 ! INPUT PARAMETERS: 
3 4 13 BUFFER - Buffer containing file headers. 
: 8 1! COUNT - Count of file headers in buffer. 
3 44 2.5 FILE NUMBER - File number and RVN of first 
3 : : RVN - header in buffer. 
3 308 1 ! IMPLICIT INPUTS: 
; 906 1! NONE 
3 905 1! 
: 906 1 ! OUTPUT PARAMETERS: 
: 907 1! NONE 
3 tas 1! 
3 909 1 ! IMPLICIT OUTPUTS: 
3 $ 910 1! NONE 
3 237 3911 1! 
: aig 1 ! ROUTINE VALUE: 
3 a4 9135 1! NONE 
; 914 1! 
: 2381 915 1 ! SIDE EFFECTS: 
3; 238 13 1! File ID record generated. 
3; 238 917 1! 
3 2384 918 1 !<- 
3; 2385 919 1 
: 2386 ney BEGIN 
3 tet 3921 LOCAL 
3; 2388 $058 ‘ !' Unrounded length 
; 2389 92 L2, ' Rounded lengt 
: 2390 924 P: REF BBLOCK, ' Pointer to attribute record 
3; 2391 925 HDR: REF BBLOCK; ! Pointer to file header 
3; 239 ase 
3 $ 92 
3 2394 928 ! Point to the file headers. 
3 4 929 ! 
; 98 930 HDR = .BUFFER; 
3; 239 931 
3 $05 33g 
3 44 , ? : Determine the length of the attribute record. 
3; 2401 33 L1 = BRHSC_LENGTH + SBYTEOFFSET(BSASW_FID_SEQ) + 2 * .COUNT; 
3; 240 339 L2 = (.L1 * 15) AND NOT 15; 
: 240 9 
3: 2404 938 
3 ve +44 : Allocate the attribute record and initialize the record header. 
3 ris] 941 P = MAKE SPACE(.L2); 
> 2408 94 PCBRHSW_RSIZE) = .L2 - BRHSC_LENGTH; 
3; 2409 94 PLBRHSW_RTYPE) =  ineliante 
> 2410 944 2 P[BRHSL-FLAGS) = 0; 
: 2411 3945 PCBRHSL_ADDRESS) = 0; 


$04=000 Gen’ 
412 
41 
1 
15 
‘ 
i 


WN "OOO NOUNE WO OOO 


SRPRANAARANRAAL EEE 


964 


Be Se Ge Se Ge Se Se Gs Ge Ge Ge Se Ge Ge Se he Ge Ge Ge Se Se Ge eee ee 


| ah et ete eet et ee tee eae ee eee ee eee ee 


FARGU ASG NORIO 


} 6 
16-Sep-1 
14-Sep-1 


wr 
PR 


Bc 19:50:01 DL skSUMSnAS TER: CBACKU 


74 
P. 


or 


GEN_FID_RECORD, Save R2,R3,R4,R5 
BUFFER, “HDR 
COUNT, R4 
#i, Ré, 11 
4 { 
15¢ R1 
#5 {, 12 
#1, MAKE_SPACE 
#1 2, (P)+ 
)+ 
(P 
I 


et 
R3) 
~R 


é 
a7, (P 
(PS+ 
(P)+ 
#257, )+ 
LE_NUMBER, (P)+- 
RVN P)+ 
LE_NUMBER+2, (P)+ 
TP) + 
R4), 
HDR), #2 


FI 
R4 
1¢ 
7¢ 
f3cwor), SEQ 
3$ 
st 
51 


Files-11 media 
ID_RECORD = format file 1D record 
SASS (SBYTEOFFSET (BRHSW_BLOCKFLAGS) + 4, EQL, BRH : 
PraRH u BLOCKFLAGSI)<O,S2>-= 0: — a 
P = .P +"BRH ¢ LENGTH; 
STORE_(2, BBHSR_LEVELI): 
STORE-(e, .FILE-NUMBER<O, 16>); 
STORE_(1, .RVN); 
STORE-(1, .FILE NUMBER<16,8>); 
STORE-(2, . COUNT): 
DECR TY FROM .COUNT TO 1 DO 
BEGIN 
LOCAL 
SEQ; 
IF .HORCFH2$B8_STRUC Ev} EQL 2 
THEN SEQ = .HDRCFH2SW_FID_SEQ) 
ELSE SEQ = .HDRCFH1S$W-FID-SEQI; 
STORE_(2, .SEQ): 
HDR =". HDR + 512; 
: Pad the record with zeros. 
CHSFILL(O, .L2 = .L1, .P); 
1 END; 
003c 000 
55 04 aC 00 000 
54 08 AC b0 000 
" § th ch 83 
51 OF 43 SE $09 
3 : Bb B88 
EF33 CF 01 Fe 000 
80 52 10 A 990 
- 80 9 000 
0 0101 HY My 33 
Hi be ORE 89 $6 
80 10 ac 90 900 
0 OE ac 90 000 
0 54 BO 00 
een mit: 
02 07 A 9 094 
54 OA a2 x Bae 
54 06 AS it 008 
i aS 80 OBR 
0200 C5 9E 000 


Pp 
RCISAVE.B32:1° 9 (24) 


SAVE Save Files-11 media tbese e 
v04-000 GEN_FID_RECORD = toract file 1D record 1 3 


ees ge e . 


; Routine Size: 106 bytes, Routine Base: CODE + 124D 
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SUBL 
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“742 p 
DI SKSVMEHASTERLOACKUP SRCISAVE .B32;10 7" 


Be Se Se Se Be 


ap 
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nn 


Save Files-11 media 16- 56, 7 138% 90: 30:3 VAX-11 B pits 
PHYSVOL_SUMMARY = format physical volume summar 14-Sep-19 254: DISKSVMSM 


~~ & | 


C860 SAINI 


MEW OOONOUS 


oc 


40 


SOOO OOoOOOoOoCoOoOoOo 


Rohononofnonoror 


SELL LLL LLL EES 


NOU SWN—O0O@ 
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1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

2 
MAP 

AL 
ITERA 

Li = 
TH 


ZSBTTL "PHYSVOL_SUMMARY = format arstcel volume summary record’ 
ROUTINE PHYSVOL~ SUMMARY CINPUT_DEVCHAR): NOVALUE= 


'ee 


FUNCTIONAL DESCRIPTION: 
This routine generates the physical volume summary record. 


INPUT PARAMETERS: 
INPUT _DEVCHAR = Device characteristics. 


IMPLICIT poe 
NON 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
NONE 


INPUT_DEVCHAR: REF BBLOCK; ! Pointer to device characteristics 


Ll, ' Urnrounded length 

e- ' Rounded Lengt 

. ! Pointer to attribute record 
FIXED SIZE = 

RHSC LENGTH + ' record header 

' structure level 


i] 

1 

! 7 attribute size/type longwords 
BSASS. SECTORS + ' 1. sectors per track 
BSA$S_TRACKS + : ¢: tracks per cylinder 
BSASS_CYLINDERS + ! 3. cylinders per volume 
BSASS_MAXBLOCK + ! 4. logical blocks per volume 
BSASS_DEVTYP + ! 5. device type 
BSASS_ SERIAL; : g- serial number 

: - device name tvartebte? 


SASSUME (BSASS_DEVTYP, EQL, 4) ; 


“FIXED 
A OCRETHPUT QUALCQUAL_DVI_DESC], DSCSW_LENGTH) + 1; 


Lf. « INPUT DEVCHARED 1GSU_VOLMAROFE 2 NEQ 0 


s-32 V4.0 
TER: (BACKUP. Pp SRCISAVE. 832;1 


529° 288 


5 
g 


oe 
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BISA RVI ODO IS 


SSIFRFUNLSSSRSVSE ARUN LS Sarsenran=os 


nee 


MEWN—O 


vwuvvU 


vv 


ww 
ze 


xe 
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4044 


Saleh lek ed ek al eel kata ea 


Les-11 media 1b-sep 0-138% 99: 3: 3 VAX-11 Bliss-32 V4.0-742 oe 8% 


e 
SUMMARY - Tornst physical volume summar 12-30-1382 DISKSVMSMASTER: (BACKUP. SRCJSAVE .832; | 
L1 = .L1 + 4 + .(. INPUT_DEVCHAR + .INPUT_DEVCHARCDIBSW_VOLNAMOFFJ)<0,8>; 


IF; INPUT BADCBAD_NUMDESC] NEO 0 
L1 = .L1 + 4 + BSASS_BADBLOCK * .INPUT_BADCBAD_NUMDESCI; 


.L2 = BRHSC LENGTH) ; 
RNSK PHYSVOL); 
): 


); 
(2, BBHSK LEVEL); 


catt GETDVI to get the MEDIA_ID from the UCB. We save the longword 

encoded form of the media ID instead Ra’ the ascii name and type which 

can be obtained via DvIS MEDIA aNANG ond DVIS_MEDIA_TYPE. This is done 

eeceuae the HSC folks aré using this form for backup savesets created by 
e 


SGETDVI (CHAN = .INPUT_CHAN , 
ITMLST = UPLIT(” 
RD(4, DVIS_MEDIA_ID), 
an MEDIA ID, 


5) 3 


=; 
-~ 
< 
- 
— 
So 
m 
P<) 
sre 
- 
~" 
ee 


MAXBLOCK', “INP UT eDEVCHAR 
EVTYP’, .INPUT MEDIA 
ERIAL', MNPOT BADTBAD. Lenten 30s 


DVI_("DEVNAM', 
” BBLOCK( INPUT QUAL [QUAL DVI mitise 
-BBLOCKCINPUT-QUALCLQUAL~DVI-DESCJ, 


If INPUT. DEVCHARLDIB$W_VOLNAMOFF] NEQ 0 
ATV_("LABEL 
2 CY INPUT DEVCHAR + , INPUT_DEVCHARCDIBSW VOLNAMOF F1)<0, 8>, 
*ThPUT DEVCHAR + . INPUT _DEVCHARCDIBS$W_VOLNAMOFF] + 
IF .INPUT_BADCBAD_NUMDESC) NEQ 0 
THEN 
BEGIN 


LOCAL 
Q: REF BBLOCK; 


SAVE 
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ww 
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Save Files-11 media 1b-se 20-1984 99: 3: 3 
PHYSVOL_SUMMARY = format physical volume summar 14-Sep-1984 Ks vmen 
4085 

4 § STORE {6 BSASS at etree * , INPUT_BADCBAD_NUMDESC)); 

4 STORE ( esaek 8 eit OCK 

4 8 Q = IAPuf BADLBK ESC); 

: i mM eeciN tO” “Theut ‘asotene -NUMDESCJ-1 DO 

4091 4 STORE_(4, st Bhp: LBNJ); 

4 3 4 STORE» (4, .QCBAD EgQUNTD) 

4 4 Q= + BAD_ 

4094 END; 

4095 END; 

6 

4098 CHSFILL(O, .L2 = .L1, .P); 

409 END; 


57 


82 


1 LKB ! 
011A 0004 01288 P.AAC: WORD 282 
00000000" 0128¢ “ADDRESS + bot _MEDIA_ID 
00000000 00000000 CO “LONG 0, 0 
.EXTRN SYSS$GETDVI 


mat 


-32 V4.0-7 
ER: cBAcKUP. SRCISAVE. 832; ? 


Y: 
“WORD Save Re. R3,R4,R5,R6,R7,RB,RI,RIO,R11 


50 00000000" EF pO 00002 MOVL NPUT_ QUAL, RO 
56 18 AO 3C 00009 MOVZWL 24 (ROT Li 
56 F CO 0000D ADDL2 
+t} g4 AC 00 00010 MOVL {NPor’ DEVCHAR, R8 
SA 0 a& 3C 00014 MOVZWL 32(R8), 
5B D4 00018 CLRL R11 
SA DS OOOIA TSTL R10 
08 13 0001C BEQL =s«1$ 
2 p6 OOig INCL R11 
50 6A48 9A 00 MOV ZBL (R10) £8}. RO 
56 04 A046 0024 MOVAB 4(RO)EL1). L1 
50 00000000' FF p 00 9 1$ MOVL ent RO 
56 04 A640 7E 09 3 MOVAQ 4(t 1) CROJ u1 
20 A6 OE 23 MOV 15(R6), RO 
0 F CB B BICL3 #15, RO, L2 
7 OD F PUSHL os 
EE92 CF . £ 41 CALLS #1, MAKE_SPACE 
3 0 D 46 MOVL. RO. P 
10 A3 00049 SUBW3 0s #16, L2. (P)+ 
82 0 8 4 mMOVW 865, (P 
; C 0005 CLRQ 3s (PS + 
D4 000 CLRL (P)+ 
82 0101 «BF 80 0 MOVe #257, (P)+ 
— 7C 9 CLRO 0. = (SPS 
7E 7C 00058 CLRQ  =(SP) 
90 AF OF PUSHAB P.AAC 
7E D4 0006 CLRL = = ( SP) 
00000000° ai DD 0006 PUSHL INPUT_CHAN 
E D4 0006 CLRL. = =(SP)* 


28 


————— 


| SAVE Save Files-11 medi 


a 
v04-000 PHYSVOL_SUMMARY = format physical volume summar iz -Sep-1 
000000006 98 F A 
003A0001 F 1 
A8 78 
003800 8F 4 7 
A8 
003C00 8F D 
A&B 8 
003D00 $ 8F D 
AB D 
H43 004 8F DO 0009D 
nt: 9" cf DO OO00A4 
0000000" EF BO 0008 
EF OD B 
3 4 A9 D 0B 
00000000' Fe D OBD 
50 8 C¢ 0C4 
82 60 4 Al 000C7 
3 40 F 3 00CB 
62 04 ? 99 28 OOOCF 
§ DO 00004 
8 3A 90 00007 
18 5B €9 OOODA 
50 5A 4 00DD 
Ss 60 9B O00E1 
8 41 8F 9B QO0E4 
51 90 9A 000E8 
62 01 Ad 1 28 QOOE 
52 53 00 O00F 
69 D5 OOOFS 3$: 
iS 13 O00F5S 
82 69 08 AS 000F7 
82 Ae 8F 98 OOOFB 
50 0 A9 YE OOOFF 
51 1 CE 00103 
3614 B108 
8¢ 0 7D 00108 4$: 
F9 1 69 F Bote 5$: 
57 56 ¢ O10F 6$: 
57 00 6E 00 2c Batts 
62 Batt 
04 00118 


3; Routine Size: 


281 bytes, 


Routine Base: 


CODE + 12¢8 


N 6 
1 -Sep- 


4 3 VAX-11 Bliss-32 V 
1986 §9i8ei8t | teksumeha 

CALLS # GETDVI 

MOVL cgi, (PDs 

MOVE 

MOVL 538 ‘int rs 

MOVB = 9(RB) 

MOVL #39 ens 

MOVW =-:10(R 

MOVL @ 99 ig (hs 

MOVL We (RB) 

MOVL #4 868 3g‘ 

MOVL tt aii 1D. (P)+ 

MOVL #41 77 

MOVL BAb Ro. 

MOVL (Pser 

MOVL ag *euAL RO 

ADDL 0 

ADDW "(RO), (P+ 

MOVZBW (P)+ 

MOVC i a4(RO), (P) 

MOVL p 

MOVB as é. (P)+ 

BLBC 3$ 

ADDL3 R10. RB, RO 

MOVZBW ( gs. (P)+ 

MOVZBW #65, (P)+ 

MOVZBL (ROS, R1 

MOVC 1, 1(RO), (P) 

MOVL 3 

TSTL (R$) 

BEQL 6$ 

MULW3 #8, (RO), (P)+ 

MOVZ2BW #66, (P)+ 

MOV 8(R9), Q 

MNEGL #1, I 

BRB 5$ 

MOV (Q)+, (P)+ 

AOBLSS (R9). I, 4$ 

SUBL2 Ll, R7 

MOVES #0. (SP>, #0, R7, (P) 

RET 


40-742 
TER: (BACKUP. SRCISAVE .B32; ? 


9°28) 


4060 
4061 
4062 
4063, 


w” 

> 

a 
me 
<w 
mas 


MIFWN—OODONOUnsS 


Ab Ab hb Ab Ab hb Ab Ab Ab Ab Ab bh Ab db hh ah Al 


ab abv ah ahead 
SILSSS 
ws = 


vvv 
FP oP oY oY ot oT ot ot ot of ot ot ot ot ot et ee et kk kk kk kh ek ek ek ek kt ek ke et tet 


POPPI WWII WII II AI AI AIO PRPPPPUINPINIIIIIY — t t t  s 


Fwn OC 0Onoufwn— 


PADPAOAPAOAAAAAO 


f 
? 
les-11 media Bese -1984 00:30:53 VAX-11 Bliss-32 V4.0-742 P 

RIFY_REEL = verify save set volume 12-8687 382 99:30:33 DLSKSVMEMAS TER LBACKUP SRCISAVE .B32:1° 9" (285 

ZSBTTL “SAVE VERIFY_REEL = verify save set volume’ 

GLOBAL ROUTINE SAVE_VERIFY_REEL: NOVALUE= 


'e¢ 
' 


' FUNCTIONAL DESCRIPTION: 
This routine is called at the end of each reel to verify that reel. 
INPUT PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
NONE 


STATUS, ' Status variable 

10SB: VECTORC4,WORDJ, ! 1/0 status block 
SAVE_INPUT_BAD, ! Save for_INPUT_BAD 
LOCAC_SAVE? BBLOCKCINPUT_END-INPUT_BEG); T Save area 


f a file is accessed, deaccess it for the duration of the verify pass to 
void having the file open for the entire time. 


c INPUT FLAGSCINPUT OPEN) 


BEGIN 
STATUS = $Q10W( 

FUNC=10$_DEACCESS, 

CHAN=. INPUT_CHAN, 

10SB=10SB) ; 

.STATUS THEN STATUS = .10SBC0J; 
NOT. STATUS 


FILE_ERROR( 
BACKUPS_CLOSEIN + STS$K_ERROR, 
UT_FAB 


*STATUS); 


IF 
IF 
THE 


' Save current context. 


<y 


? 
SAVE Save Files-11 media ibs -1984 00:30:53 VAX-11 Bliss-32 V4.0-742 Page 91 
, V04=000 SAVE _VERIFY_REEL = verify save set volume 12-8081 384 00:30:83 DISKSVMSMASTER: (BACKUP. SRCISAVE .832;1 ’ (23) 
; 2625 4157 : 

3 ? $ i CHSMOVE (INPUT_END-INPUT_BEG, INPUT_BEG, LOCAL_SAVE); 

3 2628 416 

3; 2629 4161 ! Deassign the channel. This is et yee so that if a restart is requested 
3 : ; £186 : during the verify pass, the channel will not be lost. 

: 26 ¢ 4164 If .INPUT_CHAN NEQ 0 

: 26 4165 THEN 

3 26 $196 BEGIN 

; 2635 416 SDASSGN(CHAN=. INPUT_CHAN) ; 

> 26 4168 sNPUT_CHAN = 0; 

3; 26 ht 4 3 

3; 2638 4170 

3; 2639 4171 

3; 2640 oi%¢ ! Readjust context. 

3; 2641 417 

3 oe 4174 aie a COMP) = TRUE; 

3 264 4175 2 IF .QUALCQUAL_PHYS] THEN VERIFY_FAB = .INPUT_FAB; 

3 2644 4176 SAVE_INPUT_BAD = .INPUT BAD; 

3 2645 4177 2 CHSFILL(O,~ INPUT_END-INPUT BEG, INPUT_BEG); 

3 2646 4178 2 CHSFILL(O, OUTPUT END-OUTPOT_BEG, OUTPUT_BEG); 

3 2647 4179 OUTPUT_BAD = .SAVE_INPUT_BAD; 

3; 2648 4180 

3; 2649 4181 

3; 2650 £136 ! Do the verify by calling the RESTORE module. 

; 2651 418 : 

H 02¢ 4184 RESTORE(); 

3; 265 4185 

3; 2654 4186 

3; 2655 4187 ! Restore context. 

; 2656 4188 : 

3: 2657 4189 QUALCQUAL_COMP] = FALSE; 

3; 2658 4190 CHSMOVE (IRPUT_END-INPUT_BEG, LOCAL_SAVE, INPUT_BEG); 

3 2659 4191 OUTPUT_BAD = 0; 

3; 2660 £136 

3; 2661 419 ‘ ee : 
: 944 $132 : Reassign a channel to the input device if one was originally assigned. 
3 2664 4196 2 IF .INPUT_CHAN NEQ 0 

; 2665 4197 THEN 

; 666 4198 BEGIN 

: 266 4199 STATUS = ASSIGN_INPUT_CHANNEL (INPUT_QUALCQUAL_DEV_DESC], INPUT_CHAN, 0, 0); 
3; 2668 4200 IF NOT .STATUS 

3 669 4201 THEN 

3; 2670 & 4 FILE_ERROR( 

3 2671 420 BACKUPS$_OPENIN + STSSK_SEVERE, 

: Ore 4204 . INPUT_FAB, 

3 267 4205 » STATUS); 

3: 2674 4 06 END; 

3 2675 420 END; 


-EXTRN SYSSDASSGN 
03FC 00000 -ENTRY SAVE_VERIFY_REEL, Save R2,R3,R4,R5,R6,R7,- ; 4101 


“| 


<u“ 


Da Se Be Se Be Be Se Se Se Se Se Be Fe Se Se Se Ge Se Ge Se Se Se Se Se Ge Se Ge Se Ge ae Se Se Se Se Se Ge Se se Se Se Se Se Se Se Se Se se Se Se Se Sess Ge Se Se Seas 


<u | 


d 7 
SAVE Save Files-11 media 16-Sep-1984 00:30:5 VAX-11 Bliss-32 V4.0-74 e 
v04-000 SAVE _VERIFY_REEL = verify save set volume 14-Se 7138 99:3035 DL aKSVMEMASTERSCBACKUP. SRCISAVE .B32:9°%" (255 
| RB ,R9 3 
2 999000 G 00 9 9002 MOVAB FILE_ERROR, R9 : 
EF 9E 09 MOVAB INPUT CHAN, RB : 
: FF cE . 91 VAB  -136(SP), SP : 
| 06 A 0 1 BLBC ——‘INPUT_FLAGS, 2$ t 4139 
7E /C 0001 CLRQ -(SP) 3 4145 
7E 7C 00018 CLRQ 0 =(SP) : 
7E 7C 00010 CLRO 0 _ = (SP) : 
7E 7C Ooi CLRO = =( SP) : 
F8 AD 9F 00021 PUSHAB 10SB : 
34 DD 00024 PUSHL 2 : 
$8 DD 99 $ PUSHL INPUT_CHAN : 
E 04 CLRL. = sP) : 
000000006 99 FB OO02A CALLS #12, S¥S$QI0W : 
dO 00031 MOVL STATUS : 
97 : 00 BLBC = STATUS, 1 + 6146 
? FB AD ¢ 0037 MOVZWL 10SB, STATUS : 
Oe 57 € 0038 BLBS ATUS, 2$ t 4147 
57 DD OOOSE 18: PUSHL S 3: 4152 
08 A8 DD 90049 PUSHL INPUT FAB + 4151 
000000006 8F ODD 9004 PUSHL #BACKOPS_CLOSEING2 + 4150 
6 03 FB 0049 CALLS #3, FILE-ERROR : 
6E 68 0080 8F 28 0004C 2$: MOVC3 #128, INPUT_BEG, LOCAL_SAVE > 4158 
50 68 bg 9003¢ MOVL INPUT _CHAN, RO > 4164 
0B 13 0005 BEQL $ : 
50 DD 00057 PUSHL RO > 4167 
000000006 00 01 FB 00059 CALLS #1, SYSSDASSGN ; 
68 04 00060 CLRL_  INPUT_CHAN + 4168 
FF4G cg 80 8F 88 9006 3$: BISB2 #128, ~QUAL+8 > 4174 
06 FF48) OC 05 €1 0006 BBC #5, QUAL+12, 4$ $ 4175 
015C C8 08 AB DO 0006E MOVL NPUT_FAB, VERIFY_FAB : 
56 18 A8 00 00074 4$: MOVL. _INPUT“BAD, SAVE iAput BAD : 4176 
0080 8F 00 6E 09 2c 90078 movCS #0, (SP), #0, #728, INPUT_BEG > 4177 
ooBC BF 00 bE 00 2¢ 90080 MOVCS #0, (SP), #0, #188, OUTPUT_BEG : 4178 
0098 8 0008 : 
0080 C8 56 DO OO08A VL. SAVE_INPUT_BAD, OUTPUT_BAD > 4179 
000000006 00 00 FB 0008F CALLS #0, RESTORE > 4184 
FF44 CB 80 ar BA 0096 BICB2 #128, QUAL+8 > 4189 
468 6E 0080 8F 28 909¢ MOVCS #128, LOCAL_SAVE, INPUT_BEG > 4190. 
0080 (8 D4 OOOA CLRL OUTPUT BAD > 4191 | 
6a 0 OOA6 TSTL JNPUT_CHAN 3 4196 
e4 13 QO00A8 BEQL $ : 
; 7C OOAA CLRQ = =( SP) > 4199 
58 DD OOOAC PUSHL R8 ; 
7E 16 AB 10 C1 OOOA ADDL #16, INPUT_QUAL, -(SP) ; 
000000006 99 94 F 9008 CALLS #4, ASSIGN” INPUT_CHANNEL ; 
5 9 DO O00BA MOVL RO, STATUS ; 
0€ 57 € 9008p BLBS STATUS, 5$ : 4 
57 DD 000C0 PUSHL STATUS 3 4205 
08 As DD Oce PUSHL INPUT FAB : 4 
000000006 8F DD O00C PUSHL ACKOPS$_OPENIN+4 : 4203 
69 3 FB 000CB CALLS » FILEZERROR : 
04 OOOCE 5$: RET > 4207 
; Routine Size: 207 bytes, Routine Base: CODE + 13€1 


| SAVE Save Files-11 media 16-56 9-300-1386 00: 3: 3 a {1 ot at, iss teas v4 a 


.0-742 3 
v04-000 SAVE_VERIFY_REEL = verify save set volume p-1984 ASTER: (BACKUP. SRC ISAVE .832; ‘ a9 333 


ONAVLSWN —“COOONOUSWN—O0ON 0 
Aa 


NASA O 
SSSSLSAEA 


WW RPNNINININININ) 2 Se 
SS 


SSNS SSNS 
Ssssssssss 
Wr 


POPIPORIPIPOPIPIPIPIPINIPUNININININUNINONININYNY 
Aan 


SNS NNN NSS NSS SSS 
wt tot tN Jt Rl ery 


CONOAUEWN OO CONOU EWN —O 
SOOONAUS WN O OONOULS WN —OOONOU 


PAPAIN 


a 


WAAR OPONONINININI NINN 2 


Foy oe at ot ot at nt nt ot ot ot ot et tt kak ka ee eee ae kk ek ke ek et ek ek 
POPSPIPINIAIPIPDPUPDNINININININIPINININININININININININIPYININI NIPPON Po nono nnToNfornononopornofporofpofnrnrnrnnn Zo 


Be Se Be Se Oe Se Ge Be Se Se Be Be Ge Ge Se Ge Se Se Ge Fe Ge Ge Fe Ge Se Se Ge Ge Ge Ge Se Ge Gs Ge Ge Se Se Ge Fe Ge Se Se Ge Ge Ge Se Ge Se Se oe Ge Se Se Se Se Se ee 


Wn—Ooo 
GDORGS 


wth 


iw 


te 


es-11 


ZSBTTL ‘INIT_ATTR = initialize attributes area’ 
GLOBAL ROUTINE INIT_ATTRCINPUT_HDR): NOVALUE= 


e4 
' 


' FUNCTIONAL DESCRIPTION: 
This routine initializes the structure-independent attributes area. 


INPUT PARAMETERS: 
INPUT _HDR - Input file header. 
IMPLICIT INPUTS: 
NONE 


OUTPUT PARAMETERS: 
NONE 


INPUT_CREDATE, INPUT_REVDATE, INPUT_EXPDATE 
INPUT-FILEOWNER, INPOT_FILECHAR, INPUT_RECAT 


INPUT .BAKDATE , 
- The Tnput attributes. 


ROUTINE VALUE: 
NONE 


' 

i 

{ IMPLICIT OUTPUTS: 
i SIDE EFFECTS: 
NONE 

leo 


as 
LOCAL INPUT_HDR: REF BBLOCK; ! Pointer to file header 
INPUT_IDENT: REF BBLOCK, ! Pointer to ident area 
IDLEN; ! Length of ODS-2 ident area 
MACRO 
MOVO_(A,B)= 
TB) = 


= (A); 
((B)+4) = .((A)+4) 2%; 
CHSFILL(O, INPUT_HDR_END-INPUT_HDR_BEG, INPUT_HDR_BEG); 


IF , INPUT _HORCFH2SB_STRUCLEV) EQL 1 
BEGIN 
: Determine the address of the ident area. 
INPUT_IDENT = .INPUT_HDR + .INPUT_HDRCFHISB_IDOFFSET] * 2; 


: Initialize the structure-independent attributes area. 
FROM_ODS1_DATE(INPUT_IDENTCF11$T_CREDATE), INPUT_CREDATE); 


asm 


fF 7 
media 16-Sep-1984 00:30: VAX-11 Bliss- 0-74 & 4 
R = initialize attributes area 1a-8ep-19 4 90: 30:33 DISKSVMSMASTE a Mathur ERCISAVE .B32:1° 7 (20s 


—— -- 7 
i 


7 
SAVE Save Files-11 media 18-3 -1984 00:30:53 VAX-11 Bliss-32 V4.0-742 Pa ib) 
-000 INIT_ATTR = Initiatize attributes area 1 met 99:20:83 DISKSVMSMASTER: (BACKUP. SRCISAVE .832;1 9° (28) 
: 27 4265 FROM _ODS1 DATE (INPUT IDENTEFI1§1 REVDATE), INPUT_REVDATE); 
: 2735 4 66 FROM-ODS1 DATE ( INPUT IDENTLFI1$T EXPDATE , INPUT“EXPDATE); 
: e7 4626 INPUT_F ILEQWNER< 9.15> = .INPUT_RORCFH1SB_UICMEMBER); 
: e7 4 68 INPUT—F ILEQWNER<16,16> = . INPUT-HDRLFH1$B_UICGROUPJ; 
: 27 4 $ INPUT“FILECHAR = . INPUT _HDRCLFHISW_F LECHARI; 
; 133 é £9 CHSMOUE (FATSC_LENGTH, INPUT_HORCFAI$W_RECATIRJ, INPUT_RECATTR); 
5 2741 4 i ELSE 
: 276 427 BEGIN 
3: 274 4276 
: me ? ie Determine the address and length of the ident area. 
3 276 4e7 INPUT_IDENT = .INPUT_HDR + .INPUT_HDRCFH2$8_IDOFFSET] * 2; 
3 es 2 f IDLEN”= (. INPUT_HDRCFH2S$B_MPOFFSET] = .INPUT_HDRCFH2$B_IDOFFSETJ) * 2; 
: 2749 4280 
3 £30 : 8 H Initialize the structure-independent attributes area. 
; 3¢ 4 j if .IDLEN GEQU SBYTEOFFSET(FI12$Q_CREDATE) +8 
> 275 6284 THEN 
3 2754 4285 4 BEGIN 
; 39 $ 86 4 MOVG_ (INPUT IDENTCF 12$0_CREDATE], INPUT_CREDATE); 
> 2757 4 88 ; IF .IDLEN GEQU SBYTEOFFSET(FI2$Q_REVDATE) +8 
: 2758 4289 THEN 
: 2759 4290 4 BEGIN 
: 760 4 91 4 MOVG_(INPUT_IDENTCF12$0_REVDATE], INPUT_REVDATE); 
: 276 4 38 ; IF .IDLEN GEQU SBYTEOFFSET(FI2$Q_EXPDATE) +8 
+ 276 4294 THEN 
: 2764 4295 4 BEGIN 
: 765 4 %6 4 MOVG_(INPUT_IDENTCF12$Q_EXPDATE], INPUT_EXPDATE) ; 
> 2767 4298 ; IF .IDLEN GEQU SBYTEOFFSET(FI2$Q_BAKDATE) +8 
: 2768 4299 THEN 
: 2769 4300 4 BEGIN 
3 my $30) 4 ROVO_ (INPUT _IDENTCF 1280_BAKDATE), INPUT_BAKDATE); 
: 277 4 8 INPUT_FILEOWNER = .INPUT_HDRCFH2SL FILEOUNER]; 
3: 277 4304 INPUT-FILECHAR = .INPUT_ADRCFH2$L_FILECHARI; 
3 2774 4305 CHSMOVE (FATSC_LENGTH, INPUT_HDRCFA2SW_RECATIR], INPUT_RECATTR); 
+ 2775 4306 2 END; 
: 2776 4307 1 END: 
03FC 00000 .ENTRY INIT_ATTR, Save R2,R3,R4,R5,R6,R7,RB,R9 : 4209 
59 FICO 3=OCFCs«OS'E 9000¢ MOVAB FROM-ODS1_DATE, R 3 
58 00000000° Ff 9E 0000 MOV INPUT HDR~BEG. Rg : 
0048 =«aBF 00 6E 09 2c 900E movcS #0, (SP),~#0, #72, INPUT_HDR_BEG. : 4250 
57 04 aC po 0016 MOVE INPUT HDR, R7 : 4253 
01 7 a 91 OIA CMPB (R7)> #1 : 
37 12 OF BNEQ 1 : 
50 67 9A 0002 MOVZBL (R7), RO : 4259 


a oe 


a 


—_—__—____ --——_—__ —_ 


H 7 
SAVE Save Files-11 media 16-Sep-1984 00:30: VAX-11 Bliss-32 V4.0-742 Pa 96 
- - in alize attributes area -)ep- $ 3 $ e e : 
v04=000 INIT_ATIR = initiali ttrib 12 5 198 9 Hy 3 DISKSVMSMAS TER: CBACKUP. SRCISAVE .B32:1 (24) 
56 6740 3€ 5 MOVAW (R7)CROJ, INPUT_IDENT : 
5 bb PUSHL R + 4264 
19 Ab OF 9 PUSHAB 25(INPUT_IDENT) : 
69 02 FB ¢ CALLS #2, FROM~ODS1_DATE : 
8 A 3F F PUSHAB INeuT REDDATE + 4265 
C Ab OF 99 é PUSHAB (INPUT IDENT) : 
69 02 FB CALLS #2, FROM-ODS1_DATE : 
10 A 3 SHAB NeuT EXPDATE + 4266 
26 «OA F H Ser _IDENT) 3 
69 02 FB 000 ; CALLS #2, FROM~ODS1_DATE : 
0 AB 08 A? 98 0004 MOVZ7BW BR?) INPUT _FILEOWNE t 4267 
2 as 9 a7 0 46 MOVZBW 9(R7), INPUT-FILEOWNER+2 + 6268 | 
.* 2 C A? 48 MOVZWL ecrv} INPUT _FILECHAR + 4269 
28 «AB — Az 20 é 905 moves #32, 14(R7), INPUT_RECATTR : 4 79 
50 67 9A 00087 1$: MOVZBL (R7), RO t 4277) 
56 6740 3€ 0005A MOVAW  (R7)CROJ, INPUT_IDENT : | 
51 01 aA? OA 90056 MOVZBL 1(R7), Ri : 4278 
50 51 50 ¢€3 0006 SUBL3_ RO, Ri, RO : 
50 08 C4 90066 MULL2 #2. IDLEN : 
iE D1 00069 CMPL DLEN, #30 : 4283. 
04 iF 906¢ BLSSU 2$ : 
a 16 A6 7D 000 MOVa 2 (INPUT JDENT), INPUT_CREDATE + 4286. 
26 50 01 9007 2$ CMPL DLEN, #3 > 4288 | 
05 1F 0007 BLSSU3$ : 
08 a8 1€ A 7D 00077 mova OCINPUT_IDENT), INPUT_REVDATE > 4291) 
2E 50 D1 0007C 3$ CMPL  IDLEN, #%6 : 4293. 
05 1F 0007F BLSSU 4$ : 
10 a8 26 Ab 7D 00081 MOVQ 38(INPUT_IDENT), INPUT_EXPDATE + 42% 
36 50 01 00086 4$: CMPL IDLEN, #54 : 4298. 
05 1F 00089 BLSsu 5$ : 
18 «AB —E Ad 7D 0008B MOVQ 46(INPUT_IDENT), INPUT_BAKDATE + 4301 | 
20 AB A? DO 00090 5$ MOVL  60(R7), INPUT_FILEOWNER : 4303 | 
24 As 4 A? 00 90095 MOVL 3¢(R7) INPUT ~F ILECHAR + 4304. 
28 «AB 14 A? 20 28 O009A MOVC3 #32, 20(R7), INPUT_RECATTR : 4305. 
04 O00A0 : 4307 | 


; Routine Size: 161 bytes, Routine Base: CODE + 1480 


Save Files-11 media 1h-52 p-1984 0:53 VAX-11 Bliss-32 V4.0-742 97 $ 
-000 SELECT_INPUT_FILE = apply selection to input fi 127808 -13be t 99 Hy 33 DT xSVMOMAS TER. CBACKUP. SRCISAVE. 832; ie 9° 25) \ 
: 277 4308 1 ZSBTTL ‘SELECT_INPUT_FILE = a selection to input file’ i 
; 78 4309 1 GLOBAL ROUTINE SELECT_INPUT Peet tees’ " | 
: ree 4310 1 3 
3: ev 4311 1 !44 3 
3 ree 4 \¢ 1! 3 
; 278 4315 1! FUNCTIONAL DESCRIPTION: 3 
3 f : ? 13 ! This routine evaluates selection criteria for an input file. : 
3; 27 4 19 1 ! INPUT PARAMETERS: ‘ 
3; 278 431 1! TYPE - <0,1> to evaluate file header criteria. ‘ 
3: 2788 4 i 1! <1,1> to evaluate file name criteria. H 
3 a4 ? } } : <2 1> to evaluate /CONFIRM qualifier. ; 
3; e791 4321 1 =! IMPLICIT INPUTS: | 
3; 279 4 § 1! INP Ut eee ointer to the NAM block. F 
3; 279 4 1! out ege ae INP t REVDATE, INPUT_EXPDATE, INPUT_BAKDATE, : 
> 2794 4324 1! INPUT“F I OWNER, INPOT FILECHAR, INPUT_RECATIR : 
3: 2795 4325 1! The Tnput oats teeneen i 
3 re 4 $ Ez | 
3; 279 4 1 ! OUTPUT PARAMETERS: : 
<n ri : 
3; 2800 4 1 ! IMPLICIT OUTPUTS: i 
; 2801 4331 1! NONE i 
3 B08 4 ¢ 1! i 
: sity 4 1! ROUTING VALUE : | 
3 BOS 4335 : : rue if file is selected by the selection qualifiers, false otherwise. i 
3; 2806 4 3 1 ! SIDE EFFECTS: i 
3; 2807 4337 1! NONE i 
; 4338 1! 3 
: 4 4339 1 !e- 3 
3 10 4340 1 3 
: 2811 4341 BEGIN ; 
3 aig 4 § LOC : 
; 281 434 CMDDATE: REF VECTOR, ! Pointer to command selection date 
3 2814 4344 FILDATE: REF VECTOR; ! Pointer to file selection date i 
3; 2815 rh rk | 
3 si¢ 4 #6 i 
3; 281 434 ! For a save operation, avoid sued, f file selection qualifiers to ensure that F 
3; 2818 4348 ' all needed directories are saved his test is disabled under /INTERCHANGE j 
: aie rir to save space on distribution media. 
3 ; 1 $33) iv -QUALCQUAL_OSAV] AND .DIR_STATUSCD_STAT_VALID] AND NOT -QUALCQUAL_INTE] 
3; 28 ¢ & 3g RETURN TRUE; i 
3 2824 4354 i 
3; 2825 4355 i 
3; 28 $ $28 IF .TYPE<0,1> : 
3; 28 435 THEN i 
3; 2828 4 8 BEGIN i 
3 ; 9 : 5 Hest et Ered OR .QUALCQUAL_SINC] i 
: 1 4361 4 IN 
: 28 § 4 § 4 IF .QUALCQUAL_BACK) THEN FILDATE = INPUT_BAKDATE ELSE i 
3; 283 4365 4 IF .QUALCQUAL-CREA] THEN FILDATE = INPUT_CREDATE ELSE ; 
3: 2834 4364 4 IF .QUALCQUAL “EXPI THEN FILDATE = INPUT™ _EXPDATE ELSE 


a 
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SAVE Save Files-11 media rhs. 4 3 VAX-11 Bliss-32 V4.0-742 8 
v04-000 SELECT_INPUT_FILE = apply selection to input fi 12786871383 99: 32: 33 DISK KSVNSH STER: (BACKUP. SRCISAVE .B32; ? 9 85 
3 5 4365 FILDATE = INPUT_REVDATE; 

3 4 END; 

; 4 

3 4 

H 4 ' BEFORE 

3 0 4 : 

3 1 4 IF .QUALCQUAL_BEFO 

$ ¢ 4 THEN 

3 4 4 BEGIN 

3 4 4 4 IF Pua. COUN. BEFO_BACK] 

; 5 4 4 THE DDATE = aus 

: Beg 4 4 evee cep DATE = = QUALC Lee Fo 

3; 284 4 4 IF .FILDATE \} GTRU . Haat TREN YE tian F SE; 

4 oe : 4 ES ccsante 1J EQLU .CMDDATEL1) AND FILDATEEO GEau -CMDDATELO] THEN RETURN FALSE; 
; 2850 4 

3; 2851 4 

; S26 4 ' OWNER 

3; 285 4 ! 

3 2854 4 IF .QUALCQUAL_I_OWNE) 

3; 2855 4 

3 526 4 4 IF NOT (¢ 

3; 285 4 4 (.QUALCQUAL_1_OWN_WGRP] OR .INPUT_FILEOWNER<16,16> EQL .QUALCQUAL_I_OWN_GRP]) AND 
3 Bee ? 4 a © -QUALCQUAL"IJ-OWN-WMEM] OR .INPUT[FILEOWNER< 0,16> EQL .QUALCQUAL_I—~OWN_MEM])) 
3; 2860 4 RETURN FALSE; 

3 2861 4 

3 ae8 4 

3; 286 4 ' SINCE 

3 2864 4 ‘ 

3; 2865 4 IF .QUALCQUAL_SINC) 

3 ¥¢ 4 THEN 

3; 286 4 4 BEGIN 

3; 2868 4 4 IF fun co SINC_BACK] 

3; 2869 4399 4 THE MDDATE =" INPUT_BAKDATE 

3; 2870 4400 4 evse tn MDDATE = QUALCOUAL._SINC_VALUE]; 

3; 2871 4401 4 If .FILDATE 1 LSSU  CROOATER! TREN N RETURN FALSE; 

; 144 rer 4 | ed atti 1] EQLU .CMDDATEL1] AND .FILDATECO LSsu -CMDDATECO] THEN RETURN FALSE; 
3: 2874 4404 END; 

3 184 4405 

: 76 46406 

3; 2877 4407 IF .TYPE<1,1> 

3 143 ret THEN 

3 79 44 BEGIN 

Sp EN Ps exert 

3 ry ret ' 

: 288 441 IF .QUALCQUAL_EXCLJ 

s Bae 4414 THEN 

3 5 4415 4 BEGIN 

3 ty] rb) 4 CAL 

3; 288 441 4 RSA_DESC: VECTORC2), 

5 339 re} | 2 Excl: REF BBLOCK; 

; 90 rh | 4 RSA midiiap = .INPUT_NAMCNAMSB_RSLJ; 

; 2891 4421 4 RSA-DESC[1] = . INPUT~ NAMCNAMSL — RSAI; 


< l 


a err Te Fone te 


SAVE 00 Save Files-11 me 16-Sep-1984 90: 30:33 


Bliss-32 V4.0 
SELECT_INPUT ‘Te. - = apply selection to input fi 14-Sep-1984 


: 
KBUMCMASTERSLOACCUP SRCISAVE .B32:1°%* (25> 


ee > 


; 4 EXCL = ,QUALCQU EXCL LIST; 
3 4 WHILE. 2 EXCL NEQ 
; ; IF MATCH(RSA_DESC, EXCL COUAL_EXCL_DESCI) THEN RETURN FALSE; 
$ EXCL = .EXCLCQUAL_NEXTJ; 
; END; 
; END; 
3 END; 
; IF .TYPE<2,1> 
3 THEN 
: BEGIN 
; ! CONFIRM | 
: if .QUALCQUAL_CONF J | 
3 THEN 
: 310 4 BEGIN 
: 2912 é FAQ_BUFFER: VECTOR(256,BYTE], | 
: 291 4 FAO-DESC:  BBLOC 
+ 2914 4 ANS BUFFER: VECTOR 8 Jeyted, 
: 3919 4 ANS DESC: 8); 
; $319 4 FAO_DESCC(DSCS$W_LEN NGTHI = = 3303 
> 2918 4 FAO-PESCLDSC$B_DTYPE] = DSC$K_DTYPE_T; 
> 2919 4 FAO-DESCLDSC$B_CLASS] = DSCSK-CLASS-S; 
> 2920 4 FAO-DESCLDSCSA_POINTER] = FAO-B OFFER: 
> 2921 4 ANS-DESCLDSCS$W-LENGTH) = 8; 
: é 4 ANS~DESC DSC$B_DTYPE] = DSC$K_DTYPE_T 
: 4 ANS “DESCCDSC$B_CLASS] = DSCSK~CLASS~ $: 
: 2926 4 ANS-DESCLDSC$A-POINTER] = ANS~BUFFER; 
> 2925 P 4 $F AD( 
: 5 P 4 (IF .QUALCQUAL_COMP) | 
: Pp 4 THEN SDESCRIPTOR('!AD, compare? (Y or N): °) 
3 2928 Pp 4 ELSE $DESCRIPTOR(' ‘AD. copy? (Y or N): ')), 
: 29 P 4 FAO_DESC, 
: P 4 FAO-DESC 
: 31 Pp 4 + INPUT _NAMENAMSB._RSL ] 
: 3 4 > INPUT ~NAMLNAMSL~RSAJ); 
3 293 & LIBSGET_COMMAND (ANS DESC, FAO 
: 34 4 If ;ANS-BUFFERLOJ NEQ ZCfy' A ARDS oi _BUFFERCO) NEQ %C'y* THEN RETURN FALSE; 
3 336 END; 
3 4 
: 2939 ! Passes all tests, return true. 
3; 2940 $ 
+ 2941 TRUE 
: 2942 END; 
28 20 3F 65 72 61 70 D 6F C 44 41 21 01551 P.AAE: ASCII \!AD, compare? (Y or N): \ : 
Sh $$ 4E $8 2 6F 20 59 1360 mse F 


- 


7 
| SAVE Save Files-11 media 1bese -1984 30:53 VAX-11 Bliss-32 V4.0-74 P 
| V04=000 SELECT_INPUT_FILE = apply selection to input fi baat 1 00:30:33 ST EKSUMGHASTERSLUACHUP ERCISAVE 32:10 9" (aoe 
BBR eo bah: Rieey CANOE LONG te ane : 
6F 20 59 28 20 3F 79 70 6F 63 20 44 41 H 1574 P.AAG: <ASCI] \!AD, copy? (Y or ND): \ : 
$3 8h $$ te 30 $2 b1863 " : 
1589 -BLKB 3 
00000015 01 ¢ P.AAF: LONG 21 ; 
00000000' 01 “ADDRESS P.AAG : 
.EXTRN SYSS$FAO 
000¢ 00 .ENTRY SELECT_INPUT_FILE, Save R2.R3 : 4309 
$3 00000000" EF 9E 00008 MOVAB ay +87 R3 : 
E FEE ce 4 0 MOV =280(SP), SP : 
07 AS 9 000E TSTB  QUAL+15 + 4351. 
0p 18 0001 BGEQ : 
08 0297 ¢3 €9 0013 BLBC ——dDIR_STATUS, 1$ : 
03 06 A gi 5° 9901 BBS #1, QUAL+14, 1$ : 
013D 31 00010 BRW 22 : 
03 04 AC é 00020 1$ BLBS TYPE, 2$ + 4356 
0097 31 00024 BRW 1 : 
05 63 02 £0 00027 2s BBS #2, QUAL+8, 3$ + 4359 
28 0S A’ 04 E1 00028 BBC #4, QUAL+13, 7$ : 
07 63 1 Fl 00 3$ BBC #1. QUAL+8, 4$ + 4362. 
51 010C C3 SE 00034 MOVAB INPUT _BAKDATE, FILDATE : 
1D 11 00039 BRB 4 : 
07 01 «AB 0g 3 900 B 4$ BBC #2, QUAL+9, 5$ + 4363 
51 oor C E 0040 MOVAB INPUT_CREDATE, FILDATE 3 | 
11 11 00045 BRB : 
07 01 A3 05 3 00047 5$ BBC #5, QUAL+9, 6$ : 4364, 
51 0104 c3 9 9004¢ MOVAB NPUT_EXPDATE, FILDATE : 
51 OOFC C3 9E 00053 6$ MOVAB INPUT REVDATE FILDATE : 4365 
20 63 02 €1 00058 7$ BBC ae. Q0AL+8, 11 + 4371 
07 63 0 a 0005¢ BBC #3. QUAL+8. + 4374 
50 o10c «¢ 00060 MOVAB INPUT BAKDATE, CMDDATE : 4375 
64 11 00063 BRB $ : 
50 08 a3 9E 00067 8$: MOVAB QUAL+16, CMDDATE : 4376. 
04 AO 04 Al D1 00068 9$: CMPL © &(FILDATE), 4(CMDDATE) > 4377) 
07 1A 9007 BGTRU 10$ ; 
8B 12 0007 BNEQ 11$ : 4378 | 
60 61 01 00074 CMPL  (FILDATE), (CMDDATE) ; 
03 1f 00077 BLSSU 118 ; 
O0pE 31 00079 10$ BRW 21$ F | 
1A 03 A 0 E1 o07¢ 11$ BBC #5, QUAL411, 13$ : 4384 
08 A 6 EO 00081 BBS #6, QUAL+11. 12$ : 4387 
3%0=~«SA 0116 C3 81 00086 CMPW =‘ INPUT_FILEOWNER+2, QUAL+62 ; 
cB if 008C BNEQ =} F | 
03 A3 95 OOOBE 128:  TSTB  QUAL+11 : 4388 | 
08 19 00091 BLSSs 1 : | 
34 OAS 0114 C3 81 0093 CMP INPUT_FILEOWNER, QUAL +60 F 
1€ 0S AB O4 if 0098 13$: BBC #4, QUAL+13, 168 > 4395 
07 05 a 3 Fl 0 A BBC #5. QUAL+13, 14$ : 4398 
010¢ ¢3 Hi a3 WOVAB NPUT_BAKDATE, CMDDATE : 4399 
50 18 «AS i: GOAC 148: MOV QUAL+32, CMDDATE > 44 
06 Ad 04 Ail D1 000B0 15$: CMPL =_« @CFILDATE), 4(CMDDATE) > 4401 | 


i 


; Routine Size: 


t 
| 


353 bytes, 


m7 
s-11 media 16-Sep-1984 00:30:53 VAX-11 Bliss- 
PUT_FILE = apply selection to input fi 10-300-1 382 99:30:83 DISKSVMSMASTE 
1f 0008 BLSSU 10 
68 le 6 83 BNEQ 16$ 
60 p B9 CMPL (FILDATE), (CMDDATE) 
B 1F OO0BC BLSSU 10 
zt S oi E1 OOOBE 16$: BBC #1, TYPE, 18$ 
A 1 AS 4 €1 act BBC #4, QUAL+9, 18S 
5 00cg C3 pO ¢ MOVL INE T_NAM, R 
FB AD 6 AO 9A 000CD MOVZBL (RO) RSA_DEs¢ 
FC OAD 4 ado Dd Dg MOVL 4 (RO). RSAWDESC+4 
52 28 OA 09 0D MOVL QUAL +48, EXCL 
06 AS OF bode e  Bushas stexct) 
coon «= AR Bea BAe, 
6D é £8 OOEA SLBS 45 21$ 
7 i rl 
66 04 ac 03 E1 O0Fe 18$: BBC #2, TYPE, 22$ 
6 01 A3 E9 O00F BLBC VAL+9 é 
10 AE 010€01 0 8F DO dre MOVL #17694976, FAO_DESC 
"© AE ovoeoode AF Bb Abvds AGUAS REAR. fat pbs 
04 ar o8 A 44 0010F MOVAB ANS BUFFER, ANS_DESC+4 
’ a ho SD $119 PUSHL {HART _NAR. * 
re OAD BAGO ROUEBL 31RO3 =< 
1C AE 9F 001 9 PUSHAB FAO~DESC 
67 38 oo158 ae ye 
50 FEAA CF 9E OO12A MOVAB P.AAD, RO 
05 11 OO12F BRB 20$ 
50 FEC3 CF 9E 00131 19$: MOVAB. P.AAF, RO 
50 DD 00136 20$:  PUSHL R 
000000006 00 05 FB 00138 CALLS #5, SYSSFAO 
Oe AE. OF Olas USHA FAD_DESC 
000000006 00 02 FB pores CALLS #2, LIBSGET_COMMAND 
59 soBF 08 aE 9 O14¢ CPB ANS _BUFFER, #89 
79 «BF 08 A 94 0133 CPB | ANS BUFFER, #121 
50 p O15A 21$: CLRL R 
4 013¢ RET 
50 01 D0 0015D 228 MOVL #1, RO 
04 00160 RET 


Routine Base: 


CODE + 1594 


32 V4.0-7% Pp 101 
ac CBACRUP ERCISAVE .832:1° 7" (os) 


4402 


4472 


: ? 


Save Files-11 media 0:53 VAX-11 Bliss-32 V4.0-7 
v04-000 POSTPROCESS_FILES = perform file postprocessing 18-00-19 99: 3 33 DISKSVMSMASTER: (BACKUP 
3 4 4473 1 ZSBITL ‘POSTPROCESS_FILES = perform file postprocessing’ 

3: 2945 4474 1 ROUTINE POSTPROCESS_FILES: NOVALUE= 

3 368 4475 1 

: 294 mek | 1 !¢¢ 

$ 4 4477 1! 

3: 294 £058 1 ! FUNCTIONAL DESCRIPTION: 

; 2950 4479 1! This routine records the backup date (/RECORD) or deletes (/DELETE) 
; +} ret : ete file successfully processed. 

; 926 ret 1 ! INPUT PARAMETERS: 

3; 2954 44 1! NONE 

3; 2955 4484 1! 

: 2956 4485 1! IMPLICIT INPUTS: 

3; 2957 4486 1! INPUT_PROC_LIST = Pointer to head of List. 

3; 2958 4487 1! 

3; 2959 4488 1 ! OUTPUT PARAMETERS: 

: 2960 4489 1! NONE 

3 2961 4490 1! 

3 306 4491 1 ! IMPLICIT OUTPUTS: 

3; 296 4492 1! NONE 

3 2964 4495 1! 

3: 2965 4494 1 ! ROUTINE VALUE: 

3 4495 1! NONE 

3 2967 4496 1! 

3 2968 4497 1 ! SIDE EFFECTS: : 

3 296 4498 1! Backup date recorded or file deleted. 

: 2970 4499 1! 

3 2971 4500 1 !-- 

3: 297 4501 1 

3: 297 45 ; BEGIN 

3 74 450 LOCAL 

3; 2975 4504 IN_QUAL REF BBLOCK, ! Pointer to current inpus qualifiers 
: 76 4505 P REF ete } Pointer to file ID block 
3: 2977 4506 Q REF BB petater J to file ID within block 
> 2978 4507 at BBLOCK pieéc. LENGTH Fl 

3 2979 4508 FIB_DESC VECT ‘ Descriptor for FIB 
3: 29 4509 STATUS, ' Status variable 

3: 2981 4510 10S8: VECTORE4,WORDJ, ! ‘70 status block 

3; 298 4511 WRITELOCKED; i e if input ie writelocked 
: 298 £218 

3 2984 451 

3: 2985 4514 ' Initialize. 

8 Ge 8 i oun = 

; ane 

3 HH t319 WaT TEL OcKe = FALSE; 

3: 2989 $218 F1B_DESC = FIBSC_LENGTH; 

3 451 FIB_DESCC1) = FIB; 

> 2991 4520 2 IF TQUALCQUAL_DELE) 

3; 299 4521 THEN SIGNAL (BACKUPS$_STARTDELETE) 

3; 299 $3 § ELSE SIGNAL (BACKUPS$~STARTRECORD) ; 

: 2995 4526 

: v4 | $2 5 : Loop until file ID block List is empty. 

: 299 45 $ OHILE . INPUT_PROC_LIST NEQ 0 DO 

: 45 3 BEGIN 

; 3000 45 
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SAVE Save Files-11 media 16-50 p-1984 VAX-11 Bliss-32 V4.0-742 Page 104 : 
v04-000 POSTPROCESS_FILES = perform file postprocessing 1 23e 0-1 984 1 99: 32:3 DISKSVMSMASTER: CBACKUP.SRCIJSAVE .832;1 9° (26) \ 
; 305 P 4587 6 CHAN=. INPUT CHAN, i 
; p38 P 42 : 6 10S8= ; 
; 3060 4 é Pi=F 1B DESC); ; 
; 3061 4 & IF .ST ATUS THEN tvatus = .10S$B(0); : 
3 bos 4591 6 IF NOT .STATUS ; 
; 306 1238 6 THEN | 
3: 35064 45935 6 IF_ .STATUS<O,16> EQL SS$_WRITLCK 3 
: 3065 tege 8 THEN $ 
3; 3066 4595 BEGIN ; 
3; 3067 $288 7 5s seem. CeAcrurs DELETESWL, 1, IN_QUALCQUAL_DEV_DESC]); ‘ 
: 3068 4597 7 WRITELOCKED = TRUE; { 
3 06? 4598 7 EXITLOOP; j 
; 0 4599 7 i 
; 71 4600 6 LSE ; 
: ie: 4601 6 SIGNAL ( | 
3 7 4602 6 BACKUPS_DELETE, : 
: 74 46035 6 i 
5 75 4604 6 IN Q at CUAL DEV oy : 
H 76 4605 6 .FYBCF FTO -NOn FIBCFIBSB_FID_NMX] * 16, : 
; 3077 4606 6 -FIB + Ht FID: ‘ 
; Br 4607 6 -FIBCFIBS$B_FID_ ‘ 
: 3079 4608 ~STATUS); ; 
; 3080 4609 END ; 
3; 3081 4610 ELSE ; 
3; 308 4611 6 BEGIN ; 
3; 308 461 6 3 
; 3084 46135 6 ! issue the modify Q10 to write the backup date of the specified ; 
3; 3085 4614 6 i file. : 
3; 3086 4615 6 ' : 
3: 3087 4616 6 FI BCFIBSV_NORECORD] = TRUE; ‘ 
; 3088 P 4617 6 STATUS = SaQl0W( j 
3; 3089 P 4618 6 F UNC=108 +t A i 
; 3090 P 4619 6 CHAN=. INPUT_CHAN 3 
H $093 P 4620 6 10SB=10SB 3 
: 09¢ P 4621 6 P1=F1B DESC, : 
3; 309 P 46 ; 6 PS=UPLIT( 3 
3; 3094 P 46 6 nde tie BAKDATE, ATRSC_BAKDATE), d 
3; 3095 P 4624 6 LNs iy JPI DATE), i 
3; 3096 4625 6 LONG(0)) | 
: 3097 4626 6 If .STAT US SHEN STATUS = . 108800); : 
; 3098 4627 6 IF NOT .STATUS ‘ 
3; 3099 4628 6 THEN ; 
; 3100 4629 6 IF .STATUS<O,16> EQL SS$_WRITLCK i 
; 3101 4630 § THEN d 
3 108 4631 BEGIN { 
; 310 $636 7 Fy cans oy ey Peewee 1, IN_QUALCQUAL_DEV_DESCIJ); 
3; 3104 46 7 it ELOCK = TRU i 
; 3105 4634 7 a i 
3; 3106 4635 7 i 
; 3107 4636 6 SE | 
; 3108 4637 6 SIGNAL ( i 
; 3109 4638 6 BACKUPS_WRITEBACK, i 
; 3110 4639 6 i 
3; 3111 4640 6 IN Q a COU, DEV_D scl, i 
3 116 4641 6 ETRE FTO Bess -FIBCFIBSB_FID_NMX] * 16, i 
3 311 464 6 oF Bt LBSWnF ID 2 . i 
s 3114 4645 6 Fie FIBSB_ FID ; 


| 


<u“ 
a 
tt 
WN "SO OONOVES WN “OVO uU 


st od - _ _ _ _ _d  _  _ w _ _ _t 


SAE 


os 
ne 


it a a a a 
PAARL ARTA IAy peas 
Pre 


DONO VUEW"OODOnNOusS -+0 


SSCS 


Files-11 media jo~sen= 138% 90: 30:33 VAX-11 
PROCESS_FILES = perform file postprocessing 14-Sep-1984 11:54: DISKS$V 


STATUS); 
END; 
Advance to next entry. 
Q = .0 + FIDSC_LENGTH®2; 
END; 
END; 


Free the file ID block. 
FREE_VM(REC_S_ENTRY, .P); 
END; 


Deassign the channel. 
SDASSGN(CHAN=, INPUT_CHAN) ; 
CHAN = 0; 


2.v4 


-3 
ER:C 


INPUT_C 
D; 
016F5 -BLKB 3 
0014 0008 O16FB P.AAH: .WORD 8, 20 
00000000" 016FC .ADDRESS JPI_DATE 
00000000 01700 .LONG 0 
OFFC 00000 POSTPROCESS FILES: 
5E B0 AE 9€ 00002 MOVAB =80(SP), S 
58 04 00006 CLRL _—«XIN_QUA 
58 pf 00008 CLAL WRITELOCKED 
08 AE 40 8F 9A OOOOA MOVZBL #64, FIB_DES 
OC AE 10 AE 9E O000F MOVAB F18. FIB-DESC+4 
08 00000000" EF E1 00014 BC #2, QUAL714, 1$ 
000000006 F bb 9001¢ PUSHL #BACKUPS_STARTDELETE 
000000006 1 8F DD 00024 1$: PUSHL #BACKUP$_STARTRECORD 
000000006 Q 1 Ff 90 A 3: CALLS #1, LIBSSIGNAL 
00000000' ai D 1 3$: MOVL INPUT_PROC_LIST, RO 
3 12 00038 BNEQ 4$ 
0196 31 O003A BRW 23s 
56 50 DO 00030 4$: MOVL RO, P 
00000000' ef 66 D0 0004 MOVL (PS, INPUT PROC_LIST 
8 04 Ad DI 6 4 CMPL =-« & (PS, IN_QOAL 
44 i3 48 BEQL «6s 7$ 
58 06 AB D D MOVL 4(P), IN_QUAL 
50 00000000" EF o9 051 MOVL INPUT _CHRN, RO 
9 1 58 BEQL $ 
0 oD 2A PUSHL RO 
000000006 00 1 FB ¢ CALLS #1, SYSS$DASSGN 
— 7c S$: CLRO 0 = (§P) 


Save FF EE TA AS Ae A AO 


0 
BACK 


-74 P 
UP SRCISAVE.832:1° 9" 


105 
(26) 


| SAVE Save Files-11 media 1 
v04-000 POSTPROCESS_FILES = perform file postprocessing 1 
00000090" EF 65 PUSHAB 
3 A8 3F 68 PUSHAB 
000000006 99 4 Ff $ CALL 
g D MOVL 
14 E8 0007. BLBS 
9 DD 8 78 PUSHL 
10 AB OF 70 PUSHAB 
1 0D 000 PUSHL 
00000000G 8F DD Be PUSHL 
000000006 00 4 re : CALLS 
B OD BF 6$: CLRL 
03 3 9 $3) $: BLBC 
0128 31 94 BRW 
7 + A6 YE 00097 8S: MOV 
A 8 <A6é 3C 00098 MOVZWL 
5A 06 0009F INCL 
0116 31 000A) BRwW 
0040 =F 00 6E 00 2C OO0A4 9S MovCS 
10 A OOAB 
14 AE 67 DO OOOAD MOVL 
18 AE 04 A? 860 00081 MOVW 
7B 00000000" EF 0 gt 44 BBC 
0 06 =A ‘ ones MOVAB 
1A AE 60 00 000C MOVL 
3 AE 04 Ad BO 000C6 MOVW 
2 be 08 88 000CB BISB2 
7E 7C OOOCF CLROQ 
7E 7C 00001 CLRQ 
7E 04 00003 CLRL 
1¢ =6AE «09F 00005 PUSHAB 
7E 7C 00008 CLRQ 
0 AE 9F QOODA PUSHAB 
7E 0135 8F 3C 444 MOVZWL 
00000000° fF DD 44 PUSHL 
E 04 OO0E CLAL 
000000006 00 OC FB QOOEA CALLS 
59 50 00 tt OVL 
06 59 §? OOF4 LBC 
59 of C 000F7 MOVZWL 
6C ce 4 th LBS 
52 10 A& YE OOOFD 108: MOVAB 
025C = BF 59 B61 00101 CMPW 
5 12 00106 BNEQ 
DO Bib PUSHL 
1 DD QO10A PUSHL 
000000006 8F DD B 19S PUSHL 
D 11 0011 BRB 
9 pp 0114 118: PUSHL 
7é 1¢ AE 9A 00116 MOVZBL 
7E 1 AE 3C QO1IA MOVZWL 
50 § AE 3C pits VZWL 
51 A A 31 MOVZBL 
51 51 10 78 00126 ASHL 
6140 9F OO12A PUSHAB 
DD 3 D PUSHL 
4 DD O012F PUSHL 
00000000G 8F DD 00151 PUSHL 


f-seo-1984 00:30:55 


NPUT_CHAN 
6(IN_ QUAL) 


#4, ASSIGN INPUT_ CHANNEL 
TUS 


RO, STA 
STATUS, 6$ 


Status 

6CIN_QUAL) 
#BACKUPS$_OPENOUT +4 
a4 BSSIGNAL 


Ll 
{TELOCKED 
ELOCKED, 8$ 


5 


—IM i Renz B82 OVE 


), 
TUS, #604 


SP ee 4) 
—rm- Aan 
"f>- > 
za- 

oc 


ACKUPS_DELETESWL 


AB 


#BACKUPS_DELETE 


azm-=|] "TTA 
PND ee 
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DISKSVMSMASTER: CBACKUP. SRC 


Page 1 
JSAVE.B32:1° 7" (205, 


am 


eval 


3; Routine Size: 


51 


487 bytes, 


ee. 
1 media 16-Sep-1984 00: 
FILES = perform file postprocessing 182868= 1382 99:8 
77 +11 00137 BRB 
12. «AE $0 88 00139 12$: BISB2 
E 04 00150 CLRL 
FEB! cr F 0013 PUSHAB 
E 7C 0014 CLRO 
7E 04 0014 CLRL 
1C =AE OF 0014 PUSHAB 
7E 7C QO14A CLRQ 
20 ee 9F 0014C PUSHAB 
36 DD O014F PUSHL 
00000000' GF DD 00151 PUSHL 
E 04 00157 CLRL 
LL 
000000006 g ‘ 4 12 es 
06 59 4 o1e8 BLBC 
59 3 C 33188 MOVZWL 
4 5 Hg 0169 13$: BLBS 
5 10 A& 9E 30196 148: MOVAB 
025¢ «BF 59 Bi 001 2 CMPW 
18 12 0017 BNEQ 
52 DD 00177 PUSHL 
01 DD 00179 PUSHL 
00000000G 8F DD 00178 PUSHL 
000000006 90 83 4 boi ge 15$: LS 
33 11 00188 BRB 
59 DD 0018D 16$: PUSHL 
7E 1¢ AE 9A 0018F MOVZBL 
7E 1—E AE HS 00193 MOVZWL 
50 $3 AE 3C 00197 MOVZWL 
51 5 AE 9A 00198 MOVZBL 
51 10 78 QO19F ASHL 
6140 9F a PUSHAB 
52 DD 001A6 PUSHL 
04 DD dr PUSHL 
00000000G 8F DD QO1AA PUSHL 
000000006 00 07 Fe 0180 17$: CALL 
57 OC CO 001B7 18$: ADDL 
02 5A FS Hts 19$: SOBGTR 
03 11 00180 BRB 
FERS 31 001BF 30s: BRW 
6 go 01C2 218: PUSHL 
7E O30C 8F 3C 001C4 MOVZWL 
00000000G 00 rete fe 318 
00000000° 4 DD OIDs 228: PUSHL 
000000006 00 1 FB 00109 CALLS 
00000000" EF oS AH shot 


Routine Base: 


CODE + 1704 


2 


#1 
#3, LIBSSIGNA 


X-11 
SKSVMSMASTER: 


ATUS, 18% 


STATUS, #604 
16$ 


AC 


AC 


KUPS$ — 
WRITELOCKED 


KUPS$_WRITEBACK 


Af LIBSSIGNAL 
20$ 


{s 
9$ 
P 
#780, -(SP) 


# 
I 
’ 
I 


1, 


PUT 
PU 


FREE_VM 


CHAN 
SYSSDASSGN 
T_CHAN 


Bliss-32 v4.0-742 p 
STER: (BACKUP. SRCISAVE.B32;1 > 


Pe Se Se Se See Se Se Ge Ge Be Ge Se Se Se Fe Se Se Se Se Se Se Se Se Se Se Se Fe Fe Se Ge Fe Se Se Ge Se Se Se Fe Se Se Se Se Be Se Se Se Se Se 


107 
(26) 


461 
462 


#5 
3 


PAPAIN BEEP PEPE 


Les SSS SO RAS AS SSNS ARAN LSSSGS ALAR IS SSVSUASUNLSSSLSESEEASESS 


AAA AAAI AIA AIAN 


ee ed ee ce ce ce ce ce ce ed a cet ee ae cd cee cae ce cD ce ce cae ce a ae cae a ce ce a ce ce a ce ed ca ce ce ee ce cae ce ce ce cae ca ee ce ee ceed ca ce 


s- 18-58 -Sep-1984 o 0:53 VAX-11 Bliss- 


11 media 32 V4.0-742 Page 108 
ID = add file ID List entry 14-Sep-1984 4:01 DISKSVMSMASTER: CBACKUP.SRCIJSAVE.832;1 (27) 
T 
T 


SBITL “SAVE_FILE_ID = add file ID List entry’ 
OU INE SAVE-FILE[ID: NOVALUE= 


++ 


e 
E 

z 

R 

' 

i 

: eed DESCRIPTION: 
} This routine adds an entry to the file ID List. 
! 

' 

' 

! 

' 

' 

1 

! 

' 

' 

' 

1 

! 

! 

1 

' 

1 

! 

4 

1 


i INPUT PARAMETERS: 
i NONE 


i IMPLICIT INPUTS: 
INP 1 once LIST = List head of List. 
UT NAM - Contains file ID. 


i OUTPUT PARAMETERS: 
i NONE 

i IMPLICIT OUTPUTS: 
i NONE 


i ROUTINE VALUE: 
NONE 


i SIDE EFFECTS: 
! File ID entered in structure. New block may be allocated. 


: REF BBLOCK, ! Pointer to block 
Q: REF BBLOCK; ! Pointer to where FID is stored 


Fi 
FI 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
4701 ; te - INPUT_PROC_LIST; 


470 GIN 
4704 IF .P EQL 0 

4705 EN 

4706 TRUE 

4707 S 

4708 -PEREC_USED] GEQU REC MAX COUNT OR 

4709 -PEREC QUAL] NEQ .INPOT QUAL 

4710 PCREC- VOLUME) NEG NRWSO. VOL _NUMBER 

47g THEN’ 

471 GIN 

4714 INPUT_PROC_LIST = GET_VM(REC_S_ENTRY) 

4715 INPUT~PROC-LISTCREC_NEXT] = ~P3 

4716 INPUT~PROC~LIST RECTQUAL = > INPUT_QUAL; 

471 INPUT~PROC-LISTCREC-USED) = 0; 

4718 INPUT~PROC-LISTCREC-VOLUME) =  .RWSV_VOL_NUMBER; 
4719 P = .INPUT-PROC_LIST; 

4720 END; 

4721 

4722 


opie 


e--— —--—-- 
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VAX-11 Bliss-32 V4.0-742 


iSrse-19Rs 90:50:55 
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Save File 
SAVE _FILE_ID = add file ID List entry 


REC 
_NAM NARS 


= . INPUT 
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107 bytes, Routine Base: CODE + 18EB 


3; Routine Size: 


8 
Save Files-11 media 1h-s8 -1984 00:30: VAX-11 Bliss-32 V4.0-742 Pa 10 
SAVE _ONE_FILE_HANDLER = condition handler for $ 12-80 8-} he 90: 30:33 DISKSVMSMASTER: (BACKUP. SRCISAVE .832;1 ge 3 
3 5 47 § 1 ZSBITL *SAVE_ONE_FILE_HANDLER = condition handler for SAVE_ONE_FILE’ 
3 of ? : ROUTINE SAVE_ONE_FILE_HANDLER(SIG,MECH)= 
: 3608 apse i’ 
: 3210 £339 | i FUNCTIONAL DESCRIPTION: 
3; 3211 47 3 1: This routine is a condition handler for routine SAVE_ONE_FILE. It 
3 \§ 47 1? takes gore f unwinding the stack when a failure to Continue a save on 
3 1 4740 1! @ continuation tape occurs, and of recording the fact that an error 
3 1% ofes : H occurred during file processing. 
; 1 to28 1! INPUT PARAMETERS: 
3 i rte : : zs. - Standard VMS handler parameters 
3 3219 474g | i 
; rot : : ee 
; 4749 1: 
H 5 $229 1 ! OUTPUT PARAMETERS: 
3 25 ri 4 } NONE 
; ; 4 2338 1! IMPLICIT OUTPUTS: 
$e: 8 | Sie 
: $ 9 o736 1 ROUTINE VALUE: 
3 3 1 ttt 4 : SS$_RESIGNAL 
: : 4759 1 | SIDE EFFECTS: 
3; 32 4760 1! NONE 
3s 32 4761 1! 
3; 3235 4762 1 !<- 
: $38 tre ! BEGIN 
; 4765 
3 239 4766 SIG: REF BBLOCK, ! Signal parameters 
3 me rth t4 MECH: REF BBLOCK; ! Mechanism parameters 
: 324 4769 
H “§ $700 FF USEC SL. 516 JED EQL BACKUPS$_CONTINUE 
: 3245 477e BEGIN 
$ $08 477 ye! FLAGSCEOV_SAVING) = FALSE; 
3 47 4774 SIG cr ot SIG_ARGS) = -SIGCCHFSL_SIG_ARGS] = 2; 
; g48 4775 MECHCCHFSC_MCA_SAVROJ = TRUE; 
; 49 e776 SPUTMSG(MSGVEC=.SIG, ACTRIN=PUTMSG_ACTRIN); 
; $20 477 SUNWIND(); 
Be HAE fe 
: 325 4780 
F 358 4781 2 ELSE IF NOT .SIGCCHFSL_SIG_NAME) 
3 $2; 47 ; THEN 
3 3$ rth ? INPUT_FLAGSCINPUT_SAVE_OK] = FALSE; 
: 3258 4785 
3; 3259 47 § SS$_RESIGNAL 
3; 3260 47 END; 


on 


SAVE Save Files-11 1b-5e 0: VAX-11 s-3 
v04-000 SAVE ONE _FILE HANDLER - condition handler for $ 1 3007138 99: 3 OF Disk $v nen ASfeascbaceur, SRC JSAVE. B32; ‘ 
.EXTRN SYSSPUTMSG 
0004 00000 SAVE ONE FILE HANDLER: , 
e ave 
00000090" EF 9 9000 WOVAB ~~ INPUT_FLAGS, R2 
aC D0 000 MOVL 1G, Ri 
000000006 4 al D} 900 cMPL acrt), #BACKUPS$_CONT INUE 
o 8A 0001 8182 #4, INPUT FLAGS 
g 2 C3 OO1A SUBL2 #2. (R1) 
0 08 AC 00 00010 MOVL ec 
0c Ao 91 BO 0021 MOVL #1, 12¢RO) 
: C 000 3 CLRO = 
000000006 Q 9F 000 PUSHAB PUTMSG_ACTRIN 
1 DD 0002 PUSHL 
000000006 00 04 FB O002F CALLS #4, SYSSPUTMSG 
7C 000 CLRO. 20 = §P 
000000006 00 03 re 00038 CALLS #2, SYSSUNWIND 
04 Al £8 00041 1$: BLBS 4(R1), 2% 
$2 20 A 00045 BICB2 #32 iNPUT_FLAGS 
0 0918 8F 3C 00048 2$ MOVZWL #2328, RO 
04 00040 RET 


; Routine Size: 78 bytes, Routine Base: CODE + 1956 


Be Se Se Se Se Be Se Se Ge Se Se Fe Ge Se Ge Se Ge Se Be Se 


29° (28) 


5 


k 8 12 
- 30: AX-11 Bliss-32 V4.0-742 Page 1 
=000 Ae PY Bee exgen- 138s M0: 82:37 “SRCISAVE .832;1 - (29) 
soe SAVE “PILE = save an input file 14-Sep-1984 0: 4:01 DISKSVMSMASTER: (BACKUP 
: 1 ZSBTTL ‘SAVE _ONE_FILE = save an input file’ 
; 8 <789 GLOBAL ROUTINE SAVE_ONE_FILE= 
; re $73) | ‘+4 
: i N: 
; £538 i i cig = te eee routine for input file processing. 
: 1 
; % re Fi 1 | INPUT PARAMETERS: 
| erin 
? 357 4799 1 i IMPLICIT INPUTS: 
: TF - Pointer to the FAB. 
: te <0} 7 INPUT-NAM - Pointer to the NAM block. 
; ig 4803 1 | OUTPUT PARAMETERS: 
3 7 
PAB oss | 
; 4806 1 i IMPLICIT OUTPUTS: 
; oR 4807 NONE 
288 rh tt i eng yy file was accessed without incurring an SS$_NOSUCHFILE 
: 385 4811 1! error; false otherwise. 
: i 
; $B tb18 i i SIDE EFFECTS: 
: 3288 4814 1! NONE 
3; 3289 4815 1! 
3; 3290 $516 1 !-- 
3; 3291 481 1 
HERS ese 
: ; FIBSC_LENGTH), ! FIB 
ashes Hieroese;— YECTOREGH,0 Beier iptor for FB 
: 3599 4893 ee ace ee eet O K fhinss RendAetl, ! Storage for small ACL 
+ 333, tB5e ATR_BESC: gat OtKt 36 ! "9 attributes List 
: 3 tB5s STATBLK: BBLOCK saree LEM Cocus of file te be copied 
; 185 At UAYS: i i ily NOBACKUP files 
; 63 $837 NOBACE “FLAGS. 1 maitamaee i Flap signtting that data was not backed up 
: vs ' Status return 
: 308 tB%o fosee” VECTORE4,WORDJ; ! 1/0 status block 
: 3305 a3 BUILTIN 
: 4 Q FP; 
t 3305 188 
; 308 rit ss : Establish the handler. 
: 311 <3) .FP = SAVE_ONE_FILE_HANDLER; 
+ 331 4 
: Hi ie : Initialize the filename descriptor and the FIB. 
2 1 . - 
: NGTH, F1B) 
HHS ESRI Ste FIPCAAPMT ATI, sur weiter 
; 3318 4844 2 FIBCFIBSL_ACCTL) = FIBSM_NODRITE; 


nm 
a 
—_ 
@ 


z 

3 
ze 

2 
st 


—} 


—ODOONOUEWN—O”O 


PAPAIN 
WN "OS OONOULSWN—"OVOONOu Mme 


WA. ANNAN AANA AN ANINAANA ANNAN 


2 

> 3337 86 

; 8 864 
: 340 865 
: 3341 Bee 
3 306 868 
3; 334 869 
; 4 870 
3; 3345 871 
a ie 
; 348 874 
3; 3349 75 
; 3350 376 
3; 3351 87 

: 333 878 
: az $44 
; 336 Hy 
. 
3; 3358 4884 
3 59 4885 
3 P rey, 
; 1 . one 

: 3308 P eBRo 
3 P 4890 
3 5 4891 
3 4 36 
: 489 

Py 4894 
: ; 95 
: i 
: te 
; t908 


: 


Be 94:3 


1$- soo-19 


0:53 
14-Sep-19 


media 
LE - save an input file 4:01 
UT_FLAGSC INPUT ges: = FALSE; 


-QUALCQUAL_IGNO_INTE] 0 
rate UNAREDESCE 
SChancount <: Be ee A.SVS: 1") 3: 
CHARCDUNE.<* QUOTA. veit*) 
. INPUT _NAMEDESCLDSC 


A pOINTERS)) 


Tne ' FLAGSCI 
FIB 


UT ELA SRECTL 

END; 
F 1B$v -pone con 
_NUM 


TI ] = TRUE; 


NO_INTE 
1BSM_NOLOCK; 
UE; 
PUT _NAMCNAMSW_ 
{NAMLNAMSW 


G 
=F 
J = TR 
N 
NPUT_NAMCNAMSW_ 


INPUT F 
INPUT~ F 

PUT~ F 
TH;~ 


Initialize the ACP attributes List. 


ATR_DESCCLO.0,16,0) = = ATRSS aHEADER; 
ATR-DESCL2,0.16.0 TRSC_HEADER; 
ATR_DESC 0.38. = = INPUT" DR; 
ATR-DESCL8,0,16,0)_ = SBKSC-LENGTH 

ATR =DESC 19.6.16.0 = ARSC. STATBLK: 
ATR-DESCL12,0,32,0) = STATB 

ATR-DESCL1 0.16.0 = ATRSS READACL: 
ATR-DESCC18, +18. = ATRSC”READACL: 
ATR-DESCC20,0,32.0) = FILE cL 
ATR-DESCC24.0,16,0) = ATRSS_ACLLENGTH; 
ATR-DESC(26,0,16,0) = ATRSC- ACLLENGTHS 
ATR_DESC 0-35 -0 = ACL_LENGTH; 
ATR-DESCL32,0,32,0) = 0; 

Access the file and read the file header. 


STATUS = $010W( 


CHAN. INPUT CANS OR IOSM_ACCESS, 


PS=ATR-DESCS; 
IF bins THEN STATUS = .10SBC0): 
IF NOT .STATUS 
BEGIN 
FILE_ERROR( 
Back UP$_OPENIN + STS$K_ERROR, 
INPUT_FAB, 


- STATUS); 
IF_.STATUS<0,16> EQL SS$_NOSUCHFILE THEN RETURN FALSE; 
RETURN TRUE; 


VAX-11 Bliss-32 V4.0-742 
DISKSVMSMASTER: CBACKUP. SRCISAVE .832; fase 


DSC$w_ OT ENGTH] EQL ZCHARCOUNT(*COOO000JQUOTA.SYS;1°) AND 


aN a ie Se ns 


SAVE Save Files-11 media 16-Sep-1984 00:30:53 VAX-11 Bliss-32 V4.0-742 Page 114 
v04-000 SAVE_ONE_FILE = save an input file 1 ~$00=1387 90:30:37 DISKSVMSMASTER: (BACKUP. SRCJSAVE B32: 1° 335 

490 END; 

49 INPUT for 4 py: OPEN] = TRUE; 

rh ¢ IF .ACL_LENGTH LEGuU ATRSS_READACL THEN ACL_BUFFER = FILE_ACL; 

4 

$38 } Check for file opened under interlock. 

res 4 if - INPUT_FLAGSCINPUT_IGNO_INTE] AND .STATBLKCSBKS$W_WCNT] NEQ 0 

4 FILE_ERROR(BACKUPS_ACCONFLICT, .INPUT_FAB); 

491 

49 : Put the attributes in normal format. 


INPUT_STATBLKCSAKSL_STLBN] = ROT(.STATBLKCSBKSL_STLBN), 16); 
INPUT~STATBLKCSBKSL_FILESIZE) = ROT(.STATBLKLSBRSL_FILESIZE), 16); 


4 

5 

: Initialize the structure-independent attributes area. 
; INIT_ATTRC(INPUT_HDR); 
4 

5 

6 

7 

8 

9 

1 


! Establish the number of blocks to be copied. Copy up to the EOF block, 
except for other than sequential organization. 


INPUT _BLOCK = 1; 
INPUT"MAXBLOCK = ROT(. INPUT RECATTRCFATSL_EFBLKJ, 16); 
IF .IRPUT_RECATTRCFATSW_FFBYTE) EQ 

THEN TNPUT_MAXBLOCK™= .INPUT_MAXBLOCK = 1; 


493 

493 -INPUT_MAXBLOCK GTRU .INPUT_STATBLKCSBKSL_FILESIZE] OR 
rt Ten’ LNPUTARECATTREFATSV_FILEORG NEQ FATSC_SEQUENTIAL 
4936 INPUT_MAXBLOCK = .INPUT_STATBLKCSBKSL_FILESIZE); 


4939 : Get the file placement data. 
4941 if -QUALCQUAL_IMAG] THEN GET_PLC_DATACINPUT_HDR); 


valuate the file selection criteria. 
f they fail, close the file and return. 


1€ 
i] 

494 i 
if 

BEGIN 

4949 IF .QUALCQUAL_IMAGJ 

4951 1F QUAL COUAL VOLU] 

495 NOT .INPUT_FLAGSCINPUT_ON_RVNJ 

4954 ELS 

4955 FALSE 


495 IF .QUALCQUAL_FAST) 
4958 THEN 


Be Se Se Oe Be Se Se Se Se Se Se Se Ge Ge Ge Be Se Ge Se Ge Se Ge Fe Ge Se FF Se Se Ge Ge Gs Ge Se Se Se Se Se Se Se Se Se Ge Ge Se Ge Se Se Se Ge Ss Ge Se Ss ee Se Sees 


oS oF oF oF oy ot ot ot ot at tt ee 


WIIRRofonofononononony 2 3 ee 


MO ODNO UE WN “OOO NOUEWN Oo 
r 
Se] 
rx 


5 
) 


4994 INPUT_QUALCQUAL_USE_COUNT] = .INPUT_QUALCQUAL_USE_COUNT] + 1; 
4995 INPUT~FLAGSCINPOT_SAVE_OK] = TRUE; 


r+] 

499 

rhs Generate the file attribute record. 

5000 2 FILE_ATTRIBUTES(INPUT_HDR); 

5001 

26 ‘ A file with the NOBACKUP attribute has its data copied only if the 


IGNORE=NOBACKUP qualifier is in effect. Certain of the reserved files 
are ALWAYS implicitly NOBACKUP. If warranted, copy the blocks. 


LWAYS_NOBACK = 1 * FIDSC_INDEXF OR 1 * FIDSC_BITMAP OR 1 * FIDSC_BADBLK; 
: . INPUT_HORCFH2$8_STRUCCEV) EQL 2 THEN ALWAYS_NOBACKLFIDS$C_BADLOG) = TRUE; 


(NOT , INPUT FILECHAREFCHSV_NOBACKUP) OR 
QUAL EQUAL TGNO_NOBA) OR 
ae a iNPUT. ILECHARTF CHSV_DIRECTORY)) 
. INPUT WARE WARSY_F 1D NUN LEQU 15 AND 
NAM$SB-FID"“NMX) EQL 0 AND 


' 
i 
A 
I 
I 


n 8 
Save Files-11 media 16-Sep-1984 00:30:5 VAX-11 Bliss-32 V4.0-742 Page 11 
VELONE FILE = save an input e -Sep- 754: KSVMSMA : (BACKUP. SRCISAVE .852; ( 
SAVE ONE FILE input fil erent eee MP eki8e NT SumGhAS TER sCoAccUP SRC ISAVE.032:1° 9" (29 
3 4959 NOT SELECT_INPUT_FILE(%B°100") 
3 4960 ELSE 
H 4961 IF NOT SELECT_INPUT_FILE(%B°001") 
3 496 THEN 
3 496 TRUE 
3 4964 ELSE 
: 4965 NOT SELECT_INPUT_FILE(%B'100") 
3 496 END 
; 496 THEN 
3 4968 BEGIN 
; P 4969 STATUS = $0]0W( 
: P 497 FUNC=10$_DEACCESS, 
3 P 497 CHAN=, INPUT_CHAN, 
3 497 10SB8=10SB8); 
3 497 IF .STATUS THEN STATUS = .10SB(0); 
3 4974 IF NOT .STATUS 
3 4975 THEN 
3 4976 FILE _ERROR( 
3 4977 BACKUPS$_CLOSEIN + STSSK_ERROR, 
; 4979 -STATUS); 
: 4980 INPUT _FLAGSCINPUT_OPEN] = FALSE; 
3 4981 RETURN TRUE; 
3 498 END; 
3 498 
; 4984 
3 4985 ! Note that a file was found. “ 
3 $33 Increment the count of uses of this input filespec. 
3 4988 IF 
3 4989 NOT .DIR_STATUSC(D fy Se ee OR 
3 4990 -DIR_STATUSCD_STAT_DIR_SEL 
: 4991 THEN 
: ret COM_FLAGSCCOM_FILESEEN] = TRUE; 
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9 
lt gtd an input file 18-se0-1984 9030: 8F ot 
y ALWAYS NOBACKC. INPUT NAMCNAMSW,F ID_NUMI]) 
NOBACK_FLAG = FALSE 
NOBACK_FLAG = TRUE ; 
: Generate the journal record. 


vm 


OOCCCCOCOCOCOCOCOCO re 


WAWA AAAI GEPPOPONINININPININP I SS Se 
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SKSVMSMASTER: 


m— 


RIPIPIPIPIPINI HEE & HTT BB BE BE BWI NWI B&B BIN IIPPofononononononononononofnuw 4 
-_ woe “4 
~~“ = 


ELSE 


-QUALCQUAL_JOUR] AND 
NOT . INPUT—FILECHARLFCHSV_DIRECTORY) 


N 
WRITE _JOUR_F ILE(.NOBACK_FLAG) ; 


IF .NOBACK_FLAG 
THEN 


BEGIN 

: Inform the user that the file data was not saved 
! unless this is one of the special cases in which 
case let us not trouble the user with the noise. 


IF NOT ¢ 
. INPUT_NAMCNAMSW_FID_NUM] LEQU 15 AND 
. INPUT-NAMCNAMSB_FID-NMX] EQL 0 AN 
«ALWAYS NOBACKE . INPUT_NAMCNAMSW_FID_NUM]]) 
THEN FILE_ERROR (“BACKUPS$_NOBACRUP, .INPUT_FAB ) ; 


SOoooooococoo0o 


RELR 


EN 
ELSE 
EGIN 
Copy the file data 


NOBACK_FLAG = FALSE ; 
IF .QUALCQUAL_VOLUJ 
THEN 


BEGIN 
LOCAL 
VBN: REF BBLOCK; 


VBN = .INPUT_VBN_LIST(O); 
WHILE even NEQ INPUT_VBN_LISTCO] DO 


INPUT_BLOCK = .VBNCVBN FIRST); 
INPUT-MAXBLOCK = .VBNCOBN_LAST); 
UNTIL™SAVE BLOCKS() DO 0; 

ven = ,VBNTPLC_FLINK); 


Fae ak et et et 


COOCooooocooooooo 
MAAN 


FAN MO ODNAV EWN SO ODA NE WN OO OODNOAUE WN OOO NOUE WN OOONG Mme 


rsottoted 


END 
ELSE 
w UNTIL SAVE_BLOCKS() DO 0; 


! If doing a copy operation, close the output file (and verify it if this 
has been requested.) 


iF .QUALCQUAL_OF 11) 


LESSEE 


DDD DPVDPVDV SVD SV SVPVPVLUSIUSUSVIVSIVSIVUSVSVSVSVSUSV SVS TSS VSS STS TSS SITS 
mM—OOCONOu 


oo 
~~ 


ca 


4.0-7 


AC 


-742 _ Pa 
KUP.SRCISAVE .832;1 


ge 


1 
2 


6 
) 


-——————_ 
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| SAVE Save Files-11 media these -1984 00:30:53 VAX-11 Bliss-32 V4.0-742 P 117 
v04-000 SAVE_ONE_FILE = save a ° -'* file 2=808-13be 90:30:37 DISKSVMSMASTER: BACKUP, SRCISAVE.B32:1- (29) 
THEN 
BEGIN 
AVE WRITE); 
CLOSE_RESTORE(); 
END; 
} Free the placement data. 
iF .QUALCQUAL_IMAG] THEN FREE_PLC_BLOCKS(); 


e 
E 
3 
& 
5 
; 


Deaccess the file. 


STATUS = $0]0W( 
FUNC=10$_DEACCESS, 
CHAN=. INPUT_CHAN, 

0SB=I10SB); 

TATUS THEN STATUS = .10SBL0]; 

T .STATUS 


ILE_ERROR( 
BACKUPS CLOSEIN + STSSK_ERROR, 
- INPUT_FAB 


vvv 


If 
IF 
THEN 


PP AASASIII 
DOO ODO OCWODWDWOWOOMONNNNNNN 
MFWN—OODONOYV EWN —OOe 


Sos 


Ar -SOSNOUR UWI Os 


] 
«S$ 
F 


STATUS) ; 
INPUT_FLAGSCINPUT_OPEN] = FALSE; 


If the LOG qualifier is in effect, log the file. 
iF -QUALCQUAL_LOG] AND NOT .QUALCQUAL_OF11) 
If .NOBACK_FLAG 
FILE_ERROR( 
BACKUPS_HEADCOPIED, 
a . INPUT_FAB) 
FILE_ERROR( 


BACKUPS$_COPIED, 
. INPUT_FAB) ; 


aah ab ab db Ab ab db Ab dh hh hh ah dh ad ah al al al al 


tt tt MQOOOOOCOOOOVOVONDO 


COONAN E WN "QO OODNOA VE WN “OOONOU SW OOM 


Record that the file was successful ly processed if appropriate. Note that 
/RECORD applies to a directory only if 
/DELETE never applies to a directory. 


F 


it was explicitly selected and that 


RENLSS 


(.QUALCQUAL_RECG] AND (.DIR_STATUS EQL 0 OR .DIR_STATUSCD_STAT_DIR_SEL])) 
(,QUALCQUAL_DELE] AND .DIR_STATUS EQL 0) 
IF_.INPUT_FLAGSCINPUT_SAVE_0K 

SAVE_FILE_ID(); 


oOo Oe ee ee ee 


o SYSESSSSSe 
w 
Oe et ed ad ed ed dd ad ed ed nd md md = CH OHO OOOO OOOO OCOOOCOOCOCOVOOOO 


PUPV PUPP DPD PU DUP PVPVPVPV SPUD PU STUSVDUIVSVSVSPUSIUSVSTST SST SISA 


PoroPonosfonononnon — — 


— 
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| ) 
SAVE Save Files-11 media 16- 
v04-000 SAVE ONE _FILE = save an input file 14- 


} $608 S18 § eno: 


53 26 41 56 4F 55 51 SD 30 30 30 30 30 B O019A4 
3) $8 38 55 OiSa3 
07FC 00000 
5A 000000006 8F D0 0000 
23 44 4544: 00 43 000 
: 000000006 00 9E B08 
5 pass CF 9E 0001 
26 00000000" EF 9E Bpnss 
E FB6C 3 9E O05 
60 03C2 =C? =9E 00028 
0040 8F 00 6E 00 2c 4044 
CO = =AD 0034 
24 «AG OF 00036 
04 A6é DD 00039 
000000006 00 02 FB 44 644 
CO = AD 01 00 0004 
66 10 8A 00047 
OE FF42 «CC 02 £0 QO04A 
1 24 A6 Bi 00050 
1 4é eta 
28 «Bb 93 AF 13 29 00056 
08 i 0005¢ 
66 10 8 4 Fa 
CO AD 00100000 8F 00 00061 
C2 AD 20 88 00069 
50 08 A6 DbO 0006D 
C4 = AD 24 AQ 00 00071 
C8 AD 28 AO 80 Be5ee 
B8 AD 40 8F 9A 00078 
BC AD CO AD ro} 00080 
28 AE 000A020 8F 00 00085 
Cc (A FOB CD 9E poee 
0 AE 0009002 8F 00 B28 
4 88 AE 43 0 
3 AE 00250200 8F OA 
C 4C AE f OA 
40 AE 00260004 8F it 
44 =A 0604 (C6 9E 0008 
48 AE 04 0008B 
7E 04 0008 
2C =AE OF 000C 
7E 7C Q00C 
7E D4 Q00C 
B8 AD OF C 
7E 7C QOOCA 
$8 AE 9F QOOCC 
7E 8F 9A OOOCE 
FC A6 DD 00005 


sep-1984 00:5 


P.AAI: 


18: 
2s: 


- ENTRY 


0:53 VAX 
4:01 Dd 


AX- 
ISK 


\COOOO00IJQUOTA.SYS;1\ 


save NE_FILE, Save R2,R3,R4,R5,R6,R7,R8,- 


recat CLOSEING2. x10 


FILE_E * a8 
SEL Eth. INPUT -fILE. R7 


NPUT_FLAGS 

-1172TSP) 
SAVE_ONE a E_HANDLER, (FP) 
#O, TSP)> #0, "#64, FIB 


INPUT _NAMEDESC 

INPUT" F 

ae EXTRACT_DIR_F ILENAME 
+16. INPUT_FLAGS 


#2, QUAL+10, 1$ 
INPUT_NAMEDESC, #19 


#19, P.AAL, @INPUT_NAMEDESC+4 


NPUT_FLAGS 
m1 Okesre Fis 


“11 Bliss-32_ V4.0-742 
SKSVMSMASTER: (BACKUP. SRCISAVE .832; he 
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9 
SAVE Save Files-11 media 18-5 1984 00:30:53 X-11 - P 
* 8c 9930533 SKSVMSMASTER: (BACKUP. SRCISAVE 832; 1. 


v04-000 SAVE _ONE_FILE = save an input file 14-Sep-1 


7E D4 006 CLAL 3\§) 
} F 0D CALLS #12, SYS$QI10W 
DO 000DB MOVL RO STATUS 
$ . ODE BLB STATUS 
f O0E MOVZWL 10SB, $§TATUS 
18 F £4 BLBS STATUS, 5$ 
DD O00E7 3$ PUSHL STATUS 
0 A6 DD O00E9 PUSHL INPUT FAB 
00000000G 8F DD : E PUSHL SGACKOPS OPENING? 
8 FB OF CALLS #3, FILE RROR 
0910 &F B1 O00F CM STATUS, #232 
9 3 SOFA BEQL 486s 4$ 
0238 31 OO00FC BRW 40$ 
50 D4 OOOFF 4$ CLRL =. RO 
6 01 § tte 5$ Bi $82 #1, INPUT_FLAGS 
LENGTA, 
00000200 BF 0604 6 pt 91 g CPL ACL ENGTA, #512 
0608 6 4C AE OE 00110 MOVAB FILE_ACL, ACL_BUFFER 
66 04 £1 00116 6$ BBC #4, INPUT_FLAGS, 7$ 
1c AE 5 gota TSTw STATBLK +20 
0¢ 13 00110 BEOQL 4 
04 Ab DD OO11F PUSHL INPUT_FAB 
000000006 8F DD oot ¢ PUSHL #BACKOPS_ACCONFLICT 
as 98 FB 001 CALLS #2, FI RROR 
2c A6 08 AE 10 9C 91 B 7S: ROTL #16, STATBLK, INPUT_STATBLK 
0 A6 OC AE 10 9C 6 131 ROTL #16, STATBLK44, INPOT_STATBLK+4 
FDB8 CD 9F 00137 PUSHAB INPUT HDR 
FFIC §86C7 01 FB 00138 CALLS #1, IRNIT_ATT 
18 A6 01 D0 00140 MOVL #1, INPUT_BLOCK 
1C AG 64 Ab 10 9C 00144 ROTL #16, INPUT _RECATTR+8, INPUT_MAXBLOCK 
68 A6é BS O014A TSTW JNPUT_RECATIRGT2 
03 Ne 00140 BNEQ $ 
1¢ Ab D7? O014F DECL INPUT_MAXBLOCK 
30 Ab 1¢ A6 DT 0013¢ 8$: CMPL INPUT_MAXBLOCK, INPUT_STATBLK+4 
07 1A 0015 BGTRU 9$ 
FOO BF 5¢ AG 93 90139 BITB §INPUT_RECATTR, #240 
05 13 0015€ BEQL 1 
1c A 30 Ag b0 99160 9$: MOVL INPUT STATBLK+4, INPUT_MAXBLOCK 
1A FF42 C6 0 a 0165 10S: BBC #3, QOAL+10, 116 
FDB8 CD 9F 0016B PUSHAB INPUT HDR 
F214 C7 01 FB OO1gF CALLS #1, GET_PLC_DATA 
0B FF42 C6 03 €1 00174 BBC #3, QUAC+10> 11$ 
57 FF46 c E9 OO17A BLBC QUAL +14. 16$ 
22 66 9 Fl 017F BBC #3, INPUT_FLAGS, 13$ 
1 00183 BRB 1 
OA FF41 C6 06 €1 00185 11$: BBC #6, QUAL+9, 12% 
04 OD 0188 PUSHL #4 
67 gi FB 00180 CALLS #1, SELECT INPUT FILE 
12 0 9 01 BLBC =E.—s&wRRO,._«W1388 
41 11 0019 BRB 16§ 
01 DD 00195 12$: PUSHL #1 
67 gi FB 197 CALLS #1, SELECT INPUT _FILE 
08 0 €9 O019A LBC =——sWRO,.«138 
04 OD 019 PUSHL #4 
7 gi FB 19F CALLS #1, SELECT_INPUT_FILE 
1 0 €8 001A2 BLBS RO, 168 


ae 
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| -$ep-1984 00:30: VAX-11 Bliss 32 P B32: 17 (08s 
Saye SAVE_ONE FILE = "save an input file Wegep=19Be Vii5e:01 — DiekSVMEMASTERS COACRUPGRCISAVE .832 
/ V04-000 SAVE_ONE_FILE = save an inp r ms ra eh “pi 
| 7E : ; 
| CLRQ = =( SP) 
| 7E 7C OO1A (SP) 

ee : 
0 AE 9F 001AD PUSHAB 1058 
: D 0018 PUSHL  # 
FC AG BD OOIB PUSHL INPUT _CHAN 
Of FB OolB CALLS #io.. SYSSaIOW : 
: b MOVL RO, STA _ 
i ge Soi SUAS, s, ; 
0 aa 
- 5 14$:  PUSHL STATUS g 497) 
04 is DD O1C8  — PUSHL ANE UT FAB > 4977. 
1 a a eee Ral 
ee 6; bh 0109 158: BICB2 #1, INPUT_FLAGS ‘ot 
0164 31 O91 BRW — 
Smee tome Ble SER stati ATS ag 3 
~ B@ y»y BRB fee Sa 8 
10 A6 : ° 
ee St a ae ss 
ee ot eB OOlES CALLS AT, FICE ATTRIBUTES — 
oe Oe pO OOlFB move = owtd, ALWAYS NOBACK : $007 
03 Fer CD 91 OO1FB CMPB =o INPUT_HDR+7; | 
8 NOBACK : 
$0000 ER aoe BBE Hes AAUMTE AOU go 
58 AG O1 EI O0g07 198: B #1, INPUT. : 30 
a3 PSS he 03 SRE BBC #5, INPUT_FILECHAR+1, 22$ : 201 
8 RRR SB oe, : 
2 wg : $015. 
OD JA O02 BG 218 
29 a0 95 00221 TSTB i 
08 12 00224 BNEQ ss 
an 1 Se: Sa ee ‘fam 
“ . y 14 09 3 21$: CLRB NOBACK_FLAG ; ee 
81 90 00 $: MOVE AT. NOBACK FLAG $020 
26 6 £1 00935 388; Bac #6, QUAL+10, 24$ i 3085 
a ee $f S #5. _ INPUT _FILECHAR+1, 24$ : 2086 
™ he 5A 00 MOVZBL NOBACK FLAG, -(SP : 
66 1 FB 0004 ALLS #1, WRITE JOUR FILE t caus 
oo 8 4 £9 o 4A 248: BLBC NOBAC FLRG, 2 : 3039 
5 ot 00 BY 3 CMPW BBROS, wis 
" inoue bet FR, suo 
as i ee ROVIML SOCRO), RI ; 5041 
3) ” ai Hi 36 Bes. R1, ALWAYS_NOBACK, 30$ § soo 
7 ' 04 AG DD 00264 25$:  PUSHL INPUT_FAB 


en 


Save Files-11 media 


SAVE ONE FILE = save an input file 


1 
cers 
EEF3 
oc FF47 
EC45 
000000006 
05 FF42 
FIDE 
20 FF43 
Th FF47 
oc FF44 
OC 0107 
OF FF46 
05 
0357 


000000006 
68 


1 FFG 
8 
0 
A OA 
i 
3 
C7 
4 
cf 
9 
cf 
20 
FC 
69 
R 
58 
OA 
04 
68 
66 
C6 
£6 
04 
000000006 
: 
000000006 
e 
01D7 
6 
0107 
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0000 SI 


AM —- .OMmm —.OrmM NOS —VCIMMMNOo"OOOMWMNS "O99 ONIN HMM Mm nO OOM OS "SO 
B01" OWI D9 9 "9 9 OOH FDO F FIOM OOD FOF MOOD -WW—O0W -OV0OWOw- MOowr—-@Do 
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Nm 
oO 
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31$: 
32$: 


uw 
wr 
ee 
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s 


W938: 


33 VAX-11 Bliss-32 V4.0-742 
0 DISKSVMSMASTER: CBACKUP. SRCISAVE .832; 1 


ACKUP$_NOBACKUP 
#2, FILE-ERROR 


(VBN), INPUT_BLOCK 
* SAVE BLOCKS 
&$ 
VN), VBN 
27$ 
#0, AVE _BLOCKS 
#6, QUAL415, 31$ 
#0, SAVE_WRITE 
#0. CLOSE RESTORE 
#3, QUAL+T0, 32$ 
#0 pfREE_PLC BLOCKS 


1 
’ 
R 
( 


#5 

INPUT _CHAN 
#i2, SYS$Q10W 
RO 


INPUT _FAB 


#3, FILE_ERROR 

#1. INPUT FLAGS 

#1, QUAL¢T1, 

#6, QUAL+15. 37$ 

NOBACK FLAG, 35$ 

INPUT_F 

#BACKOPS_HEADCOPIED 

INPUT_FAB 
ACKOP$_COPIED 

H » FILE-ERROR 


QUAL712, 38$ 
DiR_StATus 


#1, DIR_STATUS 
#2. QuAC+14, 46s 
_STATUS 


tr 
#5, INPUT_FLAGS, 40$ 
#0, SAVE_FILE_ID 


398 
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oe 


ww 
RAP Rus 
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Sa 


oooo 
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uw 
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5121) 


ee ik Ce a EL at 
¥OL=000 SAVE_ONE FILE “Save an input file if: Spry eRe i ekie | PeeblnGaAS tens cbackur Secasave.32:1°%* (95 
50 01 pO OO53A 40s: MovL «#1, RO ; 5131 


; Routine Size: 830 bytes, Routine Base: CODE + 1987 


me DE —_—— ———— — 


Files-11 media bese $ep-1984 00:30:5 VAX-11 Bliss-32 V4.0-7 
SAVE = main rout ine for physical save 122868-1 382 9953033 DISKSVMSMASTER: (BACKUP. “SRCISAVE. B32; a9 163 


ZSBTTL_ "PHYS_SAVE = main routine for physical save’ 
ROUTINE PHYS-SAVE: NOVALUE= a . 


ww 
zo 
<< 


i FUNCTIONAL DESCRIPTION: 
: This routine performs a physical save. 


i INPUT PARAMETERS: 
i NONE 


i IMPLICIT INPUTS: 
i NONE 


i OUTPUT PARAMETERS: 
NONE 


ROUTINE VALUE: 
NONE 


i 
i 

i 

i 

i 

i 

i 

i 

i 

: 

! IMPLICIT OUTPUTS: 
NONE 

i 

i 

i 

! SIDE EFFECTS: 

} NONE 

i 


FAN | O ODONOU FW “OC OONOU SW "0O0O~4 


: ToRC2), ' Descripto 
STATUS; ' Status cortahie 


FUN (SO OONOA UNE WN $9 OONA UNE WN S(O ODNOAUNE WN OVOONAOVEWN WO 


SSNS SD AAA AAA AAA MIU BB PEE EES 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
5 EbcaL 
: alata magne DIBSK_LENGTH], Device cherectertettes 


7 

8 

9 

0 
641 
3048 !' Get device characteristics for the input device. 

4 DESCCO] = = DIBSK ei 

5 = INPUT-D 

3 STATUS = gSQETCH NACEHANS. input _CHAN, PRIBUF=DESC); 
eh) Soy 

50 5 BACKUPS sercom, 

51 76 NPUT_F 

2¢ 77 * STATUS) : 

5 78 

54 79 

iH 39 ! Get the bad block data. 

3) INPUT _BAD = GET_BADBLOCKS(.INPUT_FAB, .INPUT_CHAN, INPUT_DEVCHAR); 

59 4 

° ? Write the physical volume attribute record. 

; r PHYSVOL_ SUMMARY ( INPUT_DEVCHAR) ; 


SAVE Save Files-11 media 18- ep-1984 00:30:53 VAX-11 Bliss-32 V4.0-742 P 4 
v04-000 PHYS_SAVE = main routine for physical save 1 ~300n 138% 90:30:33 DISKSVMGMASTERSLOACKUP. SRCISAVE .B32; 1° 9" (405 
3 1 

3 195 ! Compute how many blocks to copy. If the disk has last track bad 

: 13 : block data, do not copy the Last track. Then, do the copy. 

: 138 INPUT _BLOCK = 0; 

; 194 INPUT _MAXBLOCK = .INPUT_DEVCHAR(D “ MAXBLOCK] = 1; 

3 195 IF NOT .BBLOCK CINPUT DEVCHARCDIBSL_DEVCHARI, DEVS$V_RCTI 

3 138 AND | INPUT DEVCHARCOIGSL RAXBLOCK GTRU SMALL_DISK 

3 1°8 INPUT_MAXBLOCK = . INPUT _MAXBLOCK = 

3 1 . INPUT DEVCHARLDIB$B_SECTOR 

3 4 4 ((. INPOT_DEVCHAR(DIBSB_SECTORS) * 

3 1 4 ° T_DEVCHARLDIB$B_ TRAC * 

3 o¢ - INPUT_DEVCHAR(DIBSW_CYLINDERS]) / 

3 0 - INPUT _DEVCHARLDIBSL_MAXBLOCK)); 

3 e UNTIL SAVE_BLOCKS() DO 0; 

5 8 ! If the output is Files-11, release a partially filled buffer to the output 
; 08 ! procedure. This serves to synchronize input and output. Then, if /VERIFY 
: is in effect, do the verification. 

3 2 11 IF .QUALCQUAL_OF 11] 

3 : \¢ THEN 

$ 1 BEGIN 

3 5214 SAVE_WRITE(); 

: 3 15 CLOSE_RESTORE(); 

3 1g END; 

; 521 

3 2518 

3 3513 Log the copy if requested. 

: 5281 i. gOuaLCouAL LOG) AND NOT .QUALCQUAL_OF 11] 

; 3558 FILE_ERROR( 

: 25S¢ BACKUPS_COPIED, 

3 5225 - INPUT_FAB) ; 

3 5226 1 END; 


~-EXTRN SYSS$GETCHN 
003C 00000 Puts SANE 


ORD Save R2,R3,R4,R5 : 5133 
55 000000006 00 9€ 9000 MOVAB FILE_ERROR, R5 : 
34 00000090" EF 9E 000 MOVAB INbUT FAB, R4 : 
E : AE 9E 9010 MOVAB si2 (SP), SP : 
7€ 4 8F 9A 00014 MOVZBL #116, DESC : $169 
04 AE 08 AE 9E 00018 MOVAB  INPUT_DEVCHAR, DESC+4 : 5170. 
7E 7C 00010 CLRQ  =(SP) : $171. 
08 AE OF OOOTF PUSHAB DESC ; 
7E D4 2 CLRL 0s = (SP) : 
8 AS DD PUSHL INPUT_CHAN $ 
000000006 00 5 F 7 CALLS #5, SYSSGETCHN : 
D 0 €8 000 F LBS. STATUS, 1$ ; 5173 
0 DD 000 PUSHL STATUS > $177 | 


SE -ne.e OO Sr ree ee 


k 9 

SAVE Save Files-11 media 16-Sep-1984 00:30:53 VAX-11 Bliss-32 V4.0-742 P 5 
¥04=000 PHYS. SAVE = main routine for physical save ease tees eeiae Wed ehle teas cbaccue eecasave 32:12" 403 
4 0D PUSHL INPUT_FAB : 5176 
000000006 4 DD 3 PUSHL ACKOPS$_GETCHN 3 5174 

5 FB 8 CALLS #3, FILE-ERROR : 
08 AE OF F 1$: PUSHAB INPUT_DEQCHAR + 5182 

FB AG DD 0004 PUSHL INPUT—CHAN : 

4 DD 00044 SHL INPUTFAB : 

000000006 00 : FB 46 CALLS #3, GET_BADBLOCKS : 

1 AG p 40 MOVL RO, INPOT_BAD : 
08 AE 9F 00051 PUSHAB INPUT DEVCHAR + 5187. 
FS7AsCF 01 FB 00054 CALLS #1, PRYSVOL_ SUMMARY : | 
16 Aa DG 059 LRL. INPUT BLOCK + 5193 
18 AG 78 «AE 01 ce 0 SUBL3 #1, IRPUT_DEVCHAR+112, INPUT_MAXBLOCK + 5194) 
et 99 AE € 99 BLBS INPUT_DEVCHAR+1 : 5195. 
00001000 &F 8 A pi 90 CHPL JNPUT-DEVCHAR+112, #4096 7 5196 
50 10 AE QA 6090 MOVZBL INPUT_DEVCHAR+8, RO : 5201, 
51 11. AE 9A 00074 movZBL INPUT~DEVCHAR+9, R1 : | 
29 51 c 00078 MULL2 1, R : 
: 12 AE 3¢ 00078 MOVZWL INPUT DEVCHAR+10, R2 : 5202 
5 52 C4 0007F MULLG R : | 
50 78 AE C6 00082 DIVL2 INPUT_DEVCHAR+112, RO + 5203) 
53 10 AE 9A 00086 MOVZBL INPUT~DEVCHAR+8, R3 + 5200. 
50 53 50 C? 0008A DIVL3 RO, R3, R : 
18 AG 50 ¢2 000 SUBL2 RO. INPUT _MAXBLOCK : 5199) 
E6FB CF 00 FB 00092 2$: CALLS #0, SAVE_BLOCKS : 5204. 
F8 50 €9 0009 BLBC ~—_-«RO, ; | 
0c FF43 C4 06 £1 O009A ¢ #6, QUAL+15, 3$ : 5211. 
E43F OCF 00 FB 9009 CALLS #0, SAVE_WRITE : 5214. 
000000006 00 00 FB 000A CALLS #0, CLOSE_RESTORE : 5215) 
11 FF3F C4 01 £1 OOOAC 3$: BBC #1, QUAL+T1, 4$ : 5221) 
0B FF43 C4 06 £0 9008 BBS #6, QUAL+15, 4$ 3 | 
64 DD 000B PUSHL INPUT FAB ; 5235 
000000006 8F DD OOOBA PUSHL #BACKOP$_COPIED ; 5223) 
65 02 FB 000C0 CALLS #2, FILETERROR F 
04 000C3 4$: RET : 5226. 


3; Routine Size: 196 bytes, Routine Base: CODE + ICF5 
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Files-11 media 1b-se ~1984 00:30: VAX-11 Bliss-32 V4.0-742 
ARTABLE_ CONDITION = evaluate error for rest 1 =30071 382 99:30:87 DISKSVMSMASTER: CBACKUP. SRC ISAVE .632; 


ZSBTTL *RESTARTABLE CONDITION = evaluate error for restartability' 
GLOBAL ROUTINE RESTARTABLE_CONDITION(COND)= 


tee 
] 


i FUNCTIONAL DESCRIPTION: 
This routine evaluates whether the status value is eligible for a 
restart and wether the last checkpoint was a valid one. 


INPUT PARAMETERS: 
COND - Condition value 


IMPLICIT INPUTS: 
NONE 


OUTPUT PARAMETERS: 
NONE 


WANA NA AAAI NA NAIAAAN 
Virw 
FUFVSVSVSVSVSISISISISINSISII «=? 


rormororonorn 


IMPLICIT OUTPUTS: 

NONE 
ROUTINE VALUE: 

True if the condition is eligible for restart. 
SIDE EFFECTS: 

NONE 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 
BEGIN 
MAP 

COND: BLOCK; ! Condition value 

EXTERNAL LITERAL 


SNS NSS SSS 


Oe eee te es tt te tt 


WAN AAN AAW 


WIN —O 0DNOUESWN —(OOONOUSWNO 


WAI 
SN NNN SNS 
eG oe oe 


BACKUP$_WAITIDLEBCB, 
BACKUPS$_BUFFERSLOST, 
FREEBADBUFF , 


A 
BACKUPS ~MAXVOLS 
nails BACKUPS ~PROCINDEX; 


BA a . 

BACKUPS_OPERFAIL, 

BACKUPS~MAXVOLS 

BACKUPS~PROC INDEX) 
: VECTOR; 


@oco 0D 0D PPAR AAAA AAA AAAI SB EE EEF EWAN 


Be Se Se Se Se Se Se Se Se Se Ge Ge Ge Sse Ge Se Se Se Se Ge Ge Ge Ge Be Ge Fe Ge Sse Ge Se Se Ge Ge Se Se Se Ge Se Se Ge Ge Se Se Ge Be Ge Ge Ge Sete Ge Se Se Ge ee eeee 


Page 126 
179° 345 


SAVE Save Files-11 media 16- sep -1984 f 99: 39:3 
RESTARTABLE CONDITION = evaluate error for rest 1 ~Sep-1984 

; - CONDESTSS$SV_ peveRi tv) EQL STSSK_SEVERE_ AND 

3 3761 5 - CONDLSTSSV~F step NO) got BACKUPS, FACILITY AND 

3; 376 $ NOT .COM_FLAGS COR RSTRT Tey AND 

; 376 (DECR X FROM . 0 

; 3764 : IF .COND gar” MF RBLEL x) THEN EXITLOOP FALSE) 

; 3765 THEN 

; 708 90 TRUE 

; 376 91 ELSE 

3; 3768 4 FALSE 

; 3769 9 END; 


000000006 000000006 000000006 000000006 
000000006 


TABLE= 


So 
o 


OV00 70 -0—0-m—m5 


04 04 AC 03 
000000006 8F 06 AC 9C 
00000000' 
50 87 
B2 AF40 04 


F5 
50 


=ONOO*"UI"TOOSO 
or 
- 
=z 
v 
q 


Ou1oror—mMm—oVO 

FF LOLS OOYUNVIONIO 
SOOQoooooooooooooo 
SOOoQCoooooooooocoooo 
VIAN DS Rmoors eve 

= 

o 

< 

a 


WAARNNNR 2] 33000 


SoOooooooooooooocoo 


ad Nu = 
ad wr 
ODBZYo 
ee pes 
=“—zD4<WoO 
- rar 

m 

o 


wm 
o 


3; Routine Size: 54 bytes, Routine sase: CODE + 1DE4 


$-32 V4 .0- 


+33 VAX-11 8B 
ISK KSVMGR TER: CBACKUP 


3 

9 

BACKUPS -WAITIDLEBCB, BACKUP$_BUFFERSLOST, 
BACKUP$_FREEBADBUF F BACKUPS. ACTIVEBCB, - 
BACKUP$_ALLOCMEM, BACKU UPS$_FREEMEM, - 


BACKUP$_ “OPERFAIL, BACKUPS_MAXVOLS, - 
BACKUP$_PROC INDEX 


BACKUPS VAITIDLEBCB 
BACKUP$_BUF FERSLOST 
BACKUP$_ tite 


BACKUP XVOLS 
BACKUPS~ ~PROCINDEX 


RESTARTARLE CONDITION, Save nothing 
#0, #3, COND, #4 


#0, #12, COND+2, #BACKUPS_FACILITY 
OM_FLAGS 

TABLE=4, X 

COND, TABLECX) 

3$ 

x, 1$ 

#i, RO 

RO 


74 
Be RcISAVE.B32:1°9° 80 


nN 9 
SAVE Save Files-11 media \o~sen= 1986 90: 30:33 VAX-11 Bliss-32 V4.0-742 Page 138 
v04-000 SAVE_HANDLER = condition handler for SAVE 14-Sep-1984 11:54:01  DISKSVMSMASTER: (BACKUP. SRCISAVE.B32;1 (32). 
3 3771 94 1 ZSBTTL "SAVE_HANDLER = condition handler for SAVE’ 
; ure 99 ROUTINE SAVE“HANDLER(SIG,MECH)= 
: SH ise 
; 126 99 1 | FUNCTIONAL DESCRIPTION: 
3; 377 00 1! This routine is established as a handler for routine SAVE. It 
; rr 4 : determines the recovery from a fatal signal. 
: 3780 88 1 | INPUT PARAMETERS: 
; 3781 06 1! SIG - Standard VMS condition handler parameters. 
3 ree 39 ! MECH - 
: 3784 09 1 | IMPLICIT INPUTS: 
; 785 08 ; NONE 
3789 10 1 | OUTPUT PARAMETERS: 
PP Sc ete 
: 3790 318 1} IMPLICIT OUTPUTS: | 
Pas BF et | 
: 379 S318 1! ROUTINE VALUE: 
: 3794 2 7 1! VMS status code (SS$_CONTINUE or SS$_RESIGNAL). 
; 3795 318 1! However, if SAVE_RESTART is called by GET_RESTART, 
: Les 2333 ! control never returns. 
: 3798 3331 1 | SIDE EFFECTS: 
: 3799 53 g 1/ NONE 
: Spot e352} i. | 
BB IBS Dc 
> 3804 5327 2 MAP 
3 3805 338h SIG: REF BBLOCK, ! Signal parameters 
3; 3806 3363 MECH: REF BBLOCK; ! Mechanism parameters 
: 3808 a339 | 
; 809 3332 IF RESTARTABLE_CONDITION(.SIGCCHFSL_S1G_NAMEJ) 
; 3811 He BEGIN 
; B18 2380 + SIGECHFSL_S1G_NAME] EQL BACKUPS WRITERS OR 
: si8 3338 yrs CHFSL-SIG_NAME) EQL BACKUPS_FATALERR 
; B16 339 IF .RWSV_VOL_NUMBER EQL 1 
> 381 340 THEN 
: 88 341 GET_RESTART(.SIG, %B'010") 
; 3820 303 GET_RESTART(.SIG, %B'011") 
> 3821 > ry ELSE 
; 38 : 43 IF .RWSV_VOL_NUMBER EQL 1 
; 3s ; a3 RETURN SS$_RESIGNAL 
; 3826 349 GET_RESTART(.SIG, %B°001"); 
3 3827 5350 


Save Files-11 media 


: 


$ 


SS$_RESIGNAL 
END; 


53 

52 

B6 AF 

35 

000000006 8F 
000000006 8F 
01 

01 

000000006 00 
50 

50 


3; Routine Size: 82 bytes, 


Routine Base: 


RETURN SS$_CONTINUE; 
END; 


10 
1b-se -1984 00:30:53 VAX-11 Bliss-32 V4.0-742 Pp 
SAVE_HANDLER = condition handler for SAVE 1o-ge0 138 90:30:33 DISKSVMSMAS TER: (BACKUP. SRCJSAVE.B32:1 > 


000C 00000 SAVE HANDLER: 
oW RD 


0 
00000000" EF oF 4 MOVAS 
04 AC 00 0000 MOVL 
04 A2 OD Bane8 PUSHL 
1 4 0010 CALLS 
0 €E9 00014 BLBC 
04 A2 01 00017 CMPL 
OA 13 QO01F BEQL 
04 A2 01 B98 1 CMPL 
Ob 12 00029 BNEQ 
63 61 00028 1S: CMPW 
04 12 Q002E BNEQ 
02 0D 00030 PUSHL 
4 11 00032 BRB 
03 0D 00034 2$: PUSHL 
07 11 00036 BRB 
63 Bi sits 3$: CMPW 
OF 13 00038 BEQL 
01 DD 00030 PUSHL 
52 DD QOOSF 4$: PUSHL 
02 FB 00041 CALLS 
01 00 00048 MOVL 
ee 00048 RET 
0918 8F 3C 0004C 5$: MOVZWL 
04 00051 ET 
CODE + 1E1A 


R2,R3 

_VOL_NUMBER, &3 

R2 

ESTARTABLE CONDITION 
, #BACKUPS_WRITERRS 

R2), #BACKUPS_FATALERR 


SV_VOL_NUMBER, #1 


RBVIBLS HLS DBevwu 


S en Seal 
PAWN 


RWSV_VOL_NUMBER, "1 
" 


i. 


#2328, RO 


GET_RESTART 
RO 


33 


5295 
5332. 


5336 
5337. 
5339 
5341 
5343 
5345. 
5349 


5352 
5357. 


S3 


SAVE Save 

v04-000 SAVE 

Bo 
; B40 
; 3841 

3 og 64 
3; 384 65 
3 5844 o8 
3 5845 6 

3: 3846 68 
. 
3 8 71 
; 3850 537 

3 3851 537 

; 3852 5374 
: 3853 75 
3; 3854 7 

; 3855 : 7 

; 385 78 
3; 385 5379 
3; 385 5380 
3; 385 tet 
: 3860 38 

3; 3861 3 

; £66 84 
; 386 5385 
3; 3864 5386 
3; 3865 5387 
3; 3866 538 

3 67 538 

; 3868 5390 
: 3869 5391 
; 3870 539 

3; 3871 539 

3 ore 5394 
3; 387 95 
3; 3874 96 
Se 
; B97 5399 
3; 3878 | , 
: 5 

: 5 


tt SOOO OOOCOOCOOC DO 
wn 


FUN COON 


Laut tihaadisiienenpalanai 


a st 


aa 
o 


SI 


1 media t.10 Sep-1984 00:30:53 VAX-11 
routine for save operation 12-808- 1 9be 90: 30:3 DISK$V neh 


ZSBTTL ‘SAVE = main routine for save operation’ 
GLOBAL ROUTINE SAVE: NOVALUE= 


FUNCTIONAL DESCRIPTION: 


his routine saves Files-11 media on backup media. 


INPUT PARAMETERS: 
NONE 

IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
NONE 


DE oa 
NON 


BEGIN 
BUILTIN 
FP; 
ort HIGH_SP = ' Save upper stack region address 
dF CUALCOOAL_ osAv)’ “1 . 
BEGIN 
; Initialize for a save. 
= SAVE_HANDLER; ' Establish handler 
init _BUFF Rs¢ 
7 QUAL QUAL BUFF ~via UE: 4 ( QUAL CQUAL _GROU_ VALUE] NEQ 0), 
QUAL pet ots VAL 


~ QUAL 
Init OUT_SAVE (FAL USE: 
IF GUALCQUAL. JOUR 


BEGIN 
WRITE _JOUR_SSNAME (); 
WRITE. JOUR= VOLUME () ; 
et . QUAL CQUAL_ SS_ENCRYP] AND CRYPTO_INIENC NEQA 0 


CRYPTO_INIENC() ; 


$-32 V4.0-742 
TER: cBacKur SRCISAVE .B32;1 


5°" 33) 


bat 


een 


-— 


| SAVE 
v04-000 


See e SSeS SS SEseses 


DODOVODODOOVOOOVOOVODOOVOODOOOOOOO 
MMMM 2 2 3 SS 
OODDNAOUVES WN “OOOO ulwn—o 


WAAR PUT 
Wn 


ODOOD0O0O 
SOLAR 


SerEHetEES 


Bo Se Be Be Se Oe Se Se Se Se Se Ge Se Se Se Se SH Ge Se Se Se Ge Se FH Ge Ge FH Gs Se Ge Se Ge Ge Ge Se Ge Ge Ge Se SF Se Ge Ge FH SH Ss Se Se Se Se Se Se Se Se Ge Stee 


oO 
= 
Bele) 


-1984 00:30:5 
ats ri 90: 30:3 

! 
; Initialize for a copy or a Files-11 to Files-11 compare. 


INIT_BUFFERS( 
TIF .QUALCQUAL_ COMP] 


Save pos may. nogre 1 
SAVE = main routine for save operation 1 


OR .QUALCQUAL_VERIJ 
THEN COPY_BUFF_COUNT#2 


4 
a al 
ELSE COPY BUFF-COUNT), 
COPY BUFF SIZE); 

INIT_RESTORE(); 

RUSV_SAVE QUAL = ,QUALCQUAL_OUTP_LISTJ; 
4 
4 
4 
4 


' VOLUME_ATTRIBUTES on the f 
} from the home block. 


if NOT .QUALCQUAL_IMAG] THEN BACKUP_SUMMARY(); 


Loop over all input specifications. 
INPUT_QUAL = .QUALCQUAL_INPU_LIST); 
INPUT_NAM = 9; 
WHILE~.INPUT_QUAL NEQ 0 DO 
BEGIN 
LOCAL 
STATUS; 
Establish pointers to the interesting control blocks. 
! Strip everything but the device from the expanded string. 
PU 


! 
' 
; 
IN 
| 
I 
: Assign a channel to the input device. 


N 
FILE_ERROR( 
BACKUPS_OPENIN + STSSK_SEVERE, 
NPUT _F 


STATUS); 


IF .QUALCQUAL_PHYSJ 
PHYS_SAVE() 
SE 


SEEN] = FALSE; 
“SCAN() 


Vv 
D 


A 
I 


X-11 
SKSVM 


st call, because we need some information 


Bliss 


SM 


s 
AS 


T 


3 
R 


' Generate the backup oumnery record. If this is an image save, it is done by 
r 


2.V4.0-742 


: (BACKUP 


STATUS = ASSIGN_INPUT_CHANNEL(INPUT_QUALCQUAL_DEV_DESC], INPUT_CHAN, 0, 0); 
IF NOT .STATUS 


Fi p 1 
*aCISAVE.B32:1° 9 (33) 


BREA & 


Soak 
a 
—O0®w 


Be Se Ge Se Se Ge Se Se Ge Ge Se Ge Se Ge Se Se Se Se Ge Ge Gs Se Ge Ge Ge Gs Ge Se Ge Se Fe Se Ge Se Ge Fe Se Se Ge Se Se Se ee 


= 
PU MOS UE ARG OS ue nee 


wn 
See 
4 ~OOOSOOSSOSOSCO OOO o 


—_—_ 
' 


Files-11 aeete 
= main routine for save operation 


ELSE SLOW Fite SCAN(); 
IF NOT .COM_FCAGSCCOM_F ILESEEN 


oe nS A AES 1, INPUT _QUALCQUAL _EXP_DESCI); 


4 

& 

4 

4 
Deassign the input channel. 
SDASSGN(CHAN=, INPUT_CHAN) ; 

4 

4 

4 


10 
16-3 -1984 30:53 VAK-11 Bliss-32 V4.0-74 Pp 
Wrap eee PE eeiay Beeb ehle tae eked Secasave 032200" chs 


INPUT_CHAN = 0; 


IF .COM_FLAGSCCOM STANDALONE] THEN EXITLOOP; 
INPUT _OOAL = .INPOT_QUALCQUAL_NEXT); 


Finish up. 


SAVE_WRITE(); 
IF ,QUALCQUAL_osAv3 


BEGIN 
IF .QUALCQUAL_JOUR) 
THEN 


BEGIN 
WRITE_JOUR_DIRECTORY(); 
WRI TE~JOUR~ VOLUME (); 
WRI TE~JOUR~SSNAME (): 


END; 
F IN_OUT_SAVE (FALSE); 
END 
ELSE 
FIN_RESTORE(); 
: Postprocess successfully processed files if requested. 
if ;,QUALCQUAL_RECO] OR .QUALCQUAL_DELEJ 


H 
POSTPROCESS_FILES(); 
END; 


007c 00000 ENTRY SAVE, Save R2,R3,R4,R5,R6 : 5359 
6 90000006 00 9—€ 0000 MOVAB CRYPTO_INIENC. R6 ; 
§ 000000006 00 9€ 000 MOVAB WRITE_JOUR VOLUME, R5 ; 
4 000000006 00 9€ 0010 MOVAB WRITE JOUR SSNAME. R4 : 
33 900000006 00 9E 0001 MOVAB INIT BUFFERS, R3 : | 
3 0000000 EF 9 OO1E MOVAB QUAL?12, R : 
0260 C D D0 000 MOVL FP, CHKPT_HIGH_SP : 5391 
03 A2 95 O002A TSTB = QUAL +15 : §392 | 
3F 18 0002D BGEOQ : 


F 10 
| SAVE Save Files-11 media 16-Sep-1984 00:30:53 VAX-11 Bliss-32 V4.0-74 P 
_ ¥04~000 SAVE = main routine for save operation 1o-808-}88e 90:30:37 DLSKSVMGMASTERSCOACKUP-SRCISAVE .832:1° 9" (43 
D FF7B «6OCEOE F VAB  SAVE_HANDLER, (FP) : 5398 
| : 3¢ COA i 8 MOVZWL QUAL #72, =(SP) : 5001 
5 46 «Ad «(9A 000 MOV ZBL QuAL+? ; RO : 5400 
5 ps 03¢ CLRL oR : 
42 A 3 03€ TST6 QUAL+78 : 
Q 13 0004 BEQL si : 
6 004 INCL RI : 
6149 f 00045 1$: PUSHAB (R1)CRO] : 
63 9 FB 0 4 CALLS #2, INIT BUFFERS : 
—E D4 00048 CLAL. 0s = ( $P) + 5402 
000000006 00 01 FB 00040 CALLS #1, INIT OUT _ SAVE : 
06 FE Ae 06 E1 054 BBC #6, QUAL710,~2$ + 5403. 
6 FB 9 CALLS » WRITE_JOUR_SSNAME : 408 
65 0 FB 0005¢ CALLS #0, WRITE~JOUR-VOLUME + 5407 | 
2€ 02 Ag 4 gt O05F 2$: BBC #4, QUAL4+T4, + 5409. 
5 66 ; 0064 MOVAB CRYPTO_INIENC, RO : | 
9 13 00067 BEQL : 
46 0 Fe 0069 CALLS #0, CRYPTO_INIENC > 541 
24 11 0006C BRB : 539 
7E 8110 &F 3 90066 3$: MOVZ2WL #33040, -(SP) : 541 
FC Ae 95 0007 TSTB  QUAL+8 : 541 
05 19 000% BLSS © 4$ ; 
01 A2 95 0007 TSTB  QUAL+13 : | 
04 18 00078 BGEQ 36s S$ : | 
04 DD 0007D 4$: PUSHL #4 + 5420 
02 11 0007F BRB 6$ : 
08 DD 00081 5$ PUSHL a2 + 5419 
63 02 FB 00083 6$ CALLS #2, INIT_BUFFERS : 
000000006 90 00 FB 00086 CALLS #0, INIT~RESTORE : 5423) 
9C A2 F8 A2 dO 0008D MOVL QuAL +4 RWSV_SAVE_QUAL : 5424 
05 FE A 03 £0 00092 7$: BBS #3, QUAL+10, 8S : 5432 
ESCO CF 00 FB 0009 CALLS #0, BACKUP SUMMARY : | 
oocc = C2 F4 A2 00 b009¢ 8$: MOVL QUAL, INPUT_QUAL + 5437) 
004 C2 D4 000 CLRL —sINPUT_N : 5438. 
51 O0CC €2 DO OODA6 9S: MOVL § INPUT“QUAL, R1 : 5439 | 
03 12 O00AB BNEQ 10$ ; | 
009E 31 OOOAD BRW 16$ 3 
ooco oC 04 Al 00 000B0 10$:  MOVL. 4(R1), INPUT_FAB : 5448. 
00c6 §= 2 00CO ¢2 00000094 8F C1 000B ADDL3 #148, INPUT_FAB, INPUT_NAM + 5449 
5 00¢4 C2 00 000C VL —s INPUT RO : 5450. 
0B AO 10 Al 90 000C MOVE 16(R1T, 114(RO) : | 
7 7C ooce CLRQ —s_ = (SP) : 5455 
0088 C2 9F 000C PUSHAB INPUT_CHAN F . 
10 Al 9F 0000 PUSHAB 16(R1T ; 
000000006 09 04 FB 900 CALLS #4, ASSIGN_INPUT_CHANNEL ; | 
1 50 €8 000DC § STATUS, 11 : 5456 
50 DD O00DF PUSHL STATU : 5461. 
00cO C2 DD OE} PUSHL INPUT FAB : 5460. 
000000006 8F DD OO0ES PUSHL ACKOPS_OPENING4 : 5459. 
000000006 00 3 FB O0E CALLS #3, FIL FRROR : 
7 62 5 €1 000F2 11$: BC #5, QUALTI2, 12 + 5464 
FD8E CF : FB OOOF CALLS #0, PHYS_SAVE : 5466 
11 OOOFB BRB 15$ ; 
6— A 04 8A OOOFD 128: BICB2 #4, COM FLAGS : 5469. 
09 FD 6 €1 00101 BBC #6, QUAC+9, 138 : 5470 
000000006 0 00 FB 001 6 CALLS #0, FAST_F{LE_SCAN ; $471 


10 
SAVE Save Files-11 media 16-Sep-1984 00:30: VAX-11 Bliss-32 V4.0-742 B 
VE = main routine for save operation -Sep- 254: K$V : (BACKUP. SRCISAVE .832; (33) 
04-000 SAVE = mat ine f i eae eee ee be | PeecbdneAlSfeaccbaccur seca 32:5°9° (435 
000000006 0 FB OOIOF 13$: CALLS #0, SLOW F ILE_SCAN 3 547 
15 A EO 00116 14$: BS #2. COM_FLAGS, 15$ : 547 
7é ooce  ¢ ci 1 ADDL3 ‘ ; INPOT_QUAL, =(SP) : 5475) 
000000006 8F DD 001 PUSHL ACKUP$_NOF ILES : 
000000006 00 FB 001 CALLS a 18$S1GNAL F 
0088 f DD 00130 158 PUSHL INPUT_CHAN + 5481 
000000006 00 FB 001 CALLS #1, SYSS$DASSGN : 
0088 fe D4 1 CLRAL INPUT_CHAN e 308e 
OA 6— A EO 135 BBS #1, COM_FLAGS > 5485. 
ooce C oocc bg p 0144 MOVL § @INPUT_GUAL, INPUT_QUAL : 486 
FF 1 148 BRW oy 3: 54 
E21A CF 00 F 146 16$ CALLS #0 SAVE WRITE : 5492 | 
03 A2 95 001 TSTB = QUAL #1 + 5493 | 
1D 18 001 é BGEQ : | 
0D FE OA 06 €1 001 BBC #6, QUAL+10, 17$ > 5496 | 
000000006 0 0 FB 0015D CALLS #0. WRITE_JOUR_DIRECTORY > 5499. 
6 FB 00164 CALLS #0. WRITE~JOUR-VOLUME : 5500. 
64 0 FB 00167 CALLS #0, WRITE~JOUR~SSNAME : 5501. 
E D4 0016A 17 CLRL. = SP : 5503. 
000000006 00 oi FB 0016 CALLS #1, FIN_OUT_SAVE ; | 
7 11 0017 BRB 19 + $493. 
000000006 00 00 FB 0017 18$: CALLS #0, FIN_RESTORE : 5506. 
05 62 06 €0 0017C 19$: BS us, QuaC+i2, 20$ + 5511 
05 02 A 02 €1 00180 BBC #2. QUAL4+14, 21$ : 
F70E CF 00 FB 00185 208: CALLS #0, POSTPROCESS_FILES : $513. 
04 0018A 21$: —-RET + 5514 


; Routine Size: 395 bytes, Routine Base: CODE + 1E6C 


er 


H 10 
SAVE Save Files-11 media 16-Sep-1984 00:30:53 VAX-11 Bliss-32 
v04-000 SAVE = asta routine for save operation 1o=808- 1982 90:30:33 DISKSVMSMASTER: 
3; 3994 e213 1 END 
; 3995 16 0 ELUDOM 
-EXTRN LIBSSIGNAL 

; PSECT SUMMARY 
: Name Bytes Attributes 
; COMMON 21 4 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, OVR,NOPIC,ALIGN( 
3; CODE 183 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN( 
; Library Statistics 
Fee heh ae tae See Syabols oooosoo= Pages Processing 
$ File Total Loaded Percent Mapped Time 
> _$255$DUA28:CSYSLIBILIB.L32;1 18619 214 1 1000 00:01.9 
; COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LIS$:SAVE/OBJ=OBJ$:SAVE MSRC$:SAVE/UPDATE=(ENHS$: SAVE) 

Size: 7999 code + 2308 data bytes 

Run Time 5.4 


Fysoeed° Time: 09: 6.3 


Line 

Lenenes/CPU-Rin: 44598 
aenery Used: 743 pages 

Compilation Complete 


C 


Vv 


4 


¢ 


0-742 
KUP.SRCISAVE .B32; ? 


alt 5) 


PMENT CORPORATION 
“AND PROPRIETARY 


AH-BT13A-SE 
VAX/VMS V4.0 


001 


AH-BT1i3A-SE 
VAX/VMS_ V4.0 


OD 


DIGITAL EQUIPMENT CORPORATION 
CONFIDENTIAL-AND PROPRIETARY 


IGI 
ONF 


